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

[MJ2k2]

ähm... Trimmen? Sorry hab grad keine Trimmer zur Hand ^^

[mkinzler]

If (Trim(Feld1.text)='')...

[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;

[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;

[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!!

[himitsu]

einfach nur mit TryStrToInt oder TryStrToFloat prüfen
- erstmal prüft das ob was drinnen ist
- und dann sogar noch, ob es sich um einen gültigen Wert handelt

[mkinzler]

Der 2. Parameter gibt einen Defaultwert vor.

[MJ2k2]

ahaaa sehr cool!
Danke euch beiden... Echt fixe Antwort bzw. Lösung des Problems!
Geile Sache

Ciaoi... bis später...

[simmi]

Hallo,

hast Du möglicherweise die Prüfung der Felder dem Ereignis onchange zugeordnet? Dann kann wird die Prüfung der Edit Felder bereit mit dem Schreiben des 1. Zeichens ausgeführt.

Sofern Du Deinem Quelltext beim onclick Ereignis einer Schaltfläche ausführen lässt, sollte es funktionieren.

Grüße Simmi