Wie oben von mir schon geschrieben. Prüfe beide Edits auf = '', dann steht in beiden nichts drin und du kannst eine Fehlermeldung ausgeben.
Dann ist ja alles in Butter:
Zitat:
if (edit1.Text='') or (edit2.text='') then begin ShowMessage('Es muss ein Wert angegeben werden!'); end;
[edit] Also gut, mal ein Beispiel (auf eine bessere Benennung habe ich bewusst verzichtet):
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var
Zahl1, Zahl2, Ergebnis: double;
Ausgabe: string;
begin
//Pessimistische Vorbelegung des Augabestrings
Ausgabe := 'Berechnung fehlgeschlagen';
if not TryStrToFloat(Edit1.Text, Zahl1) then
begin
ShowMessage('Ungültige Eingabe für die erste Zahl');
Edit1.SetFocus;
Edit1.SelectAll;
end
else if not TryStrToFloat(Edit2.Text, Zahl2) then
begin
ShowMessage('Ungültige Eingabe für die zweite Zahl');
Edit2.SetFocus;
Edit3.SelectAll;
end
//Hier können wir weitermachen, Zahl1 und Zahl2 sind aus den Eingaben befüllt
else
begin
Ergebnis := Zahl1 + Zahl2;
Ausgabe := FloatToStr(Ergebnis);
end;
//Ausgabestring darstellen
//(enthält entweder das Rechenergebnis oder die Fehlermeldung von ganz oben)
Edit3.Text := Ausgabe;
end;
[/edit]