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:

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

Delphi-Quellcode:

(NutzlastE.Text = 0)

ändere das mal zu:

Delphi-Quellcode:

(NutzlastE.Text = '0')

oder

Delphi-Quellcode:

(NutzlastE.Text = #48)

oder

Delphi-Quellcode:

(StrToInt(NutzlastE.Text) = 0)

oder

Delphi-Quellcode:

(StrToIntDef(NutzlastE.Text, 0) = 0)

Bye

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

[dummer_info_schüler]

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

[alcaeus]

Zitat:

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:

Zitat von alcaeus

Zitat:

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 :zwinker:


Bye