Feld auf Eingabe prüfen - ShowMessage geht nicht...

[MJ2k2]

Immernoch ... hier mal die komplette procedure:

Delphi-Quellcode:

procedure TForm1.BtnAddiClick(Sender: TObject);
var
    a, b, c : Integer;
begin
a:=StrtoInt (EdAddi1.Text);
b:=StrToInt (EdAddi2.Text);

if (Trim(EdAddi1.Text)='') or (Trim(EdAddi2.Text)='') then
begin
    ShowMessage('Geht nicht, du Schlauberger...');
end
Else
begin
    c:=a+b;
    SummeAddi.Text:=InttoStr (c);
end;
end;