Mehre Edit Felder auf Inhalt prüfen?

[Hawkeye219]

Hallo,

was hältst du vom folgenden Ansatz?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);                                 
const
  flagSpannung   = 1;
  flagStrom      = 2;
  flagWiderstand = 4;
var 
  Flags, Strom, Spannung, Widerstand : Integer;
begin
  Flags := 0;
  if TryStrToInt(Edit1.Text, Spannung) then
    Flags := Flags or flagSpannung;
  if TryStrToInt(Edit2.Text, Strom) then
    Flags := Flags or flagStrom;
  if TryStrToInt(Edit3.Text, Widerstand) then
    Flags := Flags or flagWiderstand;

  case Flags of
  
    flagSpannung or flagStrom:
      Ergebnis.Caption := FloatToStr(Spannung / Strom);

    flagSpannung or flagWiderstand:
      Ergebnis.Caption := FloatToStr(Spannung / Widerstand);

    flagStrom or flagWiderstand:
      Ergebnis.Caption := FloatToStr(Strom * Widerstand);

  else
    // hier Fehlerbehandlung einfügen
  end;
end;

Die Feinheiten (Validierung der Eingabewerte, Fehlerbehandlung, bessere Ausgabe) überlasse ich dir.

Gruß Hawkeye