mal nichts rechnen

[Soldier]

Delphi-Quellcode:

erg:=(kt*5000)+(gt*25000)+(lj*50)+(sJ*100)+(k*800)+(ss*1500)+(kol*7500)+(rec*20000)+(spio*5)+(B*500)+(z*2000)+(rip*1000000);

wenn ich jetz bei einem Textfeld was freilasse, dann kann er es nicht berechnen, da er nicht mal nix rechnen kann. Ich müsste also in jedes textfeld, mit dem ich nicht arbeiten möchte ne Null eintragen. aber is ja auch bissel umständlich.

kann mir jemand dabei helfen?


mfG

[Die Muhkuh]

hmm. Vllt. kannst du sowas machen:

Delphi-Quellcode:

if Edit1.Text <> '' then
  Variable := StrToInt(Edit1.Text)
else
  Variable := 0;

[BenjaminH]

Oder gleich

Delphi-Quellcode:

x:=StrtoIntDef(Edit1.Text,0);

[Soldier]

danke funzt :D

mfG