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