if-Abfrage

[blacky35]

Hallo und guten Morgen,

hab als Anfänger ein kleines Problem mit
einer If-Abfrage:

Code:

procedure THauptF.LadungsgewichtEExit(Sender: TObject);
begin
if (NutzlastE.Text = '') or (NutzlastE.Text = 0) then
    begin
    Application.MessageBox('Nutzlast eingeben','Dateneingabe',48);
    NutzlastE.SetFocus
    end;
end;

wo liegt mein Fehler?

mfG blacky

[Kedariodakon]

Zitat von blacky35:

Hallo und guten Morgen,

hab als Anfänger ein kleines Problem mit
einer If-Abfrage:

Delphi-Quellcode:

procedure THauptF.LadungsgewichtEExit(Sender: TObject);
begin
if (NutzlastE.Text = '') or (NutzlastE.Text = 0) then
    begin
    Application.MessageBox('Nutzlast eingeben','Dateneingabe',48);
    NutzlastE.SetFocus
    end;
end;

wo liegt mein Fehler?

mfG blacky

Was hast du den für einen Fehler?
Ich nehme mal an
(NutzlastE.Text = 0) ändere das mal zu:
(NutzlastE.Text = '0') oder
(NutzlastE.Text = #48) oder
(StrToInt(NutzlastE.Text) = 0) oder
(StrToIntDef(NutzlastE.Text, 0) = 0) Bye

Edit: nimm für Delhi Code bitte die delphi codetags und nicht die normalen

[dummer_info_schüler]

Vielleicht liegts auch an dem fehlenden Semikolon bei NutzlastE.SetFocus ?

[alcaeus]

Zitat von dummer_info_schüler:

Vielleicht liegts auch an dem fehlenden Semikolon bei NutzlastE.SetFocus ?

Nein, kanns nicht. Vor end brauchts keinen Strichpunkt (auch wenn ich ihn trotzdem mache)

Greetz
alcaeus

[Kedariodakon]

Zitat von alcaeus:

Zitat von dummer_info_schüler:

Vielleicht liegts auch an dem fehlenden Semikolon bei NutzlastE.SetFocus ?

Nein, kanns nicht. Vor end brauchts keinen Strichpunkt (auch wenn ich ihn trotzdem mache)

Greetz
alcaeus

Japs, der ist nur Optional


Bye