mal nichts rechnen

**Soldier**

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:

markieren

Delphi-Quellcode:

			if Edit1.Text <> '' then

  Variable := StrToInt(Edit1.Text)

else

  Variable := 0;

**BenjaminH**

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

**Soldier**

danke funzt

mfG

mal nichts rechnen

mal nichts rechnen

Re: mal nichts rechnen

Re: mal nichts rechnen

Re: mal nichts rechnen

Forumregeln

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#2 Re: mal nichts rechnen 9. Jul 2006, 14:41 hmm. Vllt. kannst du sowas machen: markieren Delphi-Quellcode: if Edit1.Text <> '' then Variable := StrToInt(Edit1.Text) else Variable := 0; Manuel Blog reactivated
	Zitat

BenjaminH Registriert seit: 14. Okt 2004 Ort: Freiburg im Breisgau 713 Beiträge Turbo Delphi für Win32	#3 Re: mal nichts rechnen 9. Jul 2006, 14:43 Oder gleich x:=StrtoIntDef(Edit1.Text,0); Benjamin
	Zitat

Soldier Registriert seit: 8. Jul 2006 39 Beiträge	#4 Re: mal nichts rechnen 9. Jul 2006, 14:59 danke funzt mfG
	Zitat