Feld +1

**superstar025**

Hallo ich möchte nachdem ich auf einen Button geklickt habe das eine Zahl in einem Editfeld oder maskeditfeld sich um eins erhöht.

Beispiel:
Feld =1
Buttonclick

Feld nun =2

und so weiter

Wie mach ich sowas??

Mfg

Matthias

**SubData**

Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1));

Edit: Oder statt + 1 einfach

Edit1.Text := IntToStr(Succ(StrToInt(Edit1.Text)));

Edit1.Text := IntToStr(StrToInt(Edit1.Text)+1);

**sakura**

Zitat von superstar025:

Wie mach ich sowas??

Du ließt den Text aus, wandelst den [dp="StrToInt"]String nach Integer[/dp] um, addierst eines hinzu und machst aus dem [dp="IntToStr"]Integer einen String[/dp] und schreibst den zurück.

...

...

**-NIP-**

Aber sowas gehört eigentlich nicht in den Multimedia-Bereich

-NIP-

**Steve**

Hi,
Edit1.Text := IntToStr(Inc(StrToInt(Edit1.Text))); kann nicht funktionieren, da Inc keine Funktion ist, sondern einen var-Parameter erwartet. und ne Funktion (StrToInt) kann ja nicht als var-Parameter übergeben werden. Das aber nur am Rande

Gruß
Stephan

**SubData**

Stimmt... Sorry Denkfehler

**sakura**

Zitat von SubData:

Stimmt... Sorry Denkfehler

Kannst es ja von Inc nach Succ korrigieren

...

**SubData**

Den meinte ich eigentlich auch.... Wird Zeit fürn Urlaub

Feld +1

Feld +1

Re: Feld +1

Re: Feld +1

Re: Feld +1

Re: Feld +1

Re: Feld +1

Re: Feld +1

Re: Feld +1

Re: Feld +1

Forumregeln

superstar025 Registriert seit: 5. Jul 2004 Ort: Beelen 140 Beiträge Delphi 7 Professional	#1 Feld +1 24. Mär 2005, 14:32 Hallo ich möchte nachdem ich auf einen Button geklickt habe das eine Zahl in einem Editfeld oder maskeditfeld sich um eins erhöht. Beispiel: Feld =1 Buttonclick Feld nun =2 und so weiter Wie mach ich sowas?? Mfg Matthias Matthias
	Zitat

SubData Registriert seit: 14. Sep 2004 Ort: Stuhr 1.078 Beiträge Delphi 11 Alexandria	#2 Re: Feld +1 24. Mär 2005, 14:33 Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1)); Edit: Oder statt + 1 einfach Edit1.Text := IntToStr(Succ(StrToInt(Edit1.Text))); Ronny /(bb\|[^b]{2})/
	Zitat

Dax (Gast) n/a Beiträge	#3 Re: Feld +1 24. Mär 2005, 14:33 Edit1.Text := IntToStr(StrToInt(Edit1.Text)+1);
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: Unterhaching 11.412 Beiträge Delphi 12 Athens	#4 Re: Feld +1 24. Mär 2005, 14:34 Zitat von superstar025: Wie mach ich sowas?? Du ließt den Text aus, wandelst den [dp="StrToInt"]String nach Integer[/dp] um, addierst eines hinzu und machst aus dem [dp="IntToStr"]Integer einen String[/dp] und schreibst den zurück. ...... Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
	Zitat

-NIP- Registriert seit: 6. Jun 2004 Ort: Aachen 254 Beiträge Delphi 7 Personal	#5 Re: Feld +1 24. Mär 2005, 14:42 Aber sowas gehört eigentlich nicht in den Multimedia-Bereich -NIP- Christian
	Zitat

SubData Registriert seit: 14. Sep 2004 Ort: Stuhr 1.078 Beiträge Delphi 11 Alexandria	#8 Re: Feld +1 24. Mär 2005, 15:00 Stimmt... Sorry Denkfehler Ronny /(bb\|[^b]{2})/
	Zitat

sakura Registriert seit: 10. Jun 2002 Ort: Unterhaching 11.412 Beiträge Delphi 12 Athens	#9 Re: Feld +1 24. Mär 2005, 15:02 Zitat von SubData: Stimmt... Sorry Denkfehler Kannst es ja von Inc nach Succ korrigieren ...... Daniel Lizbeth Ich bin nicht zurück, ich tue nur so
	Zitat

SubData Registriert seit: 14. Sep 2004 Ort: Stuhr 1.078 Beiträge Delphi 11 Alexandria	#10 Re: Feld +1 24. Mär 2005, 15:04 Den meinte ich eigentlich auch.... Wird Zeit fürn Urlaub Ronny /(bb\|[^b]{2})/
	Zitat