Fórum Utilizando Calculo com 5 edits #437944

procedure TForm1.Button1Click(Sender: TObject);
var
  intContador: Integer;
  intNumeroedit: Integer;
  intMaior: Integer;
begin
  // Variável que vai armazenar o maior número
  intMaior := 0;

  // Percorre os componentes do formulário "Self" procurando os edits
  for intContador := 0 to Self.ComponentCount - 1 do
    if Components[intContador] is TEdit then
      with (Components[intContador] as TEdit) do
      begin
        // Converte o conteúdo do texto em inteiro
        // Try..except caso seja diferente de 0..9
        try
          intNumeroedit := StrToInt(Text);
        except
          begin
            ShowMessage('Erro.');
            Exit;
          end;
        end;

        // Verifica se o valor encontrado no edit é maior que o número já encontrado
        // Caso seja, atribui o valor para variável do maior número
        if intNumeroedit > intMaior then
          intMaior := intNumeroedit;
      end;
  // Exibe o maior número
  ShowMessage('O número maior: ' + IntToStr(intMaior));
end;