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

[MJ2k2]

Zitat von mkinzler:

Der Fehler tritt auch vorher beim StrToInt() auf.
Versuch es besser so:

Delphi-Quellcode:

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

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;

Jaa... funktioniert! Endlich!
Was genau hab ich denn da jetzt gemacht mit dem "IntoStrDEF" und (EdAddi1.Text,0);?
Danke sehr schonmal
edit:
Ah ich seh schondann kehrt er zum Default (Integer) zurück!
Cool! Danke dir/euch!!