Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Feld +1 (https://www.delphipraxis.net/42836-feld-1-a.html)

superstar025 24. Mär 2005 13:32


Feld +1
 
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 24. Mär 2005 13:33

Re: Feld +1
 
Delphi-Quellcode:
Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1));
:)

Edit: Oder statt + 1 einfach

Delphi-Quellcode:
Edit1.Text := IntToStr(Succ(StrToInt(Edit1.Text)));

Dax 24. Mär 2005 13:33

Re: Feld +1
 
Delphi-Quellcode:
Edit1.Text := IntToStr(StrToInt(Edit1.Text)+1);

sakura 24. Mär 2005 13:34

Re: Feld +1
 
Zitat:

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.

...:cat:...

-NIP- 24. Mär 2005 13:42

Re: Feld +1
 
Aber sowas gehört eigentlich nicht in den Multimedia-Bereich ;)

-NIP-

Steve 24. Mär 2005 13:44

Re: Feld +1
 
Hi,
Delphi-Quellcode:
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 :dance:

DP-Maintenance 24. Mär 2005 13:50

DP-Maintenance
 
Dieses Thema wurde von "sakura" von "Multimedia" nach "Object-Pascal / Delphi-Language" verschoben.

SubData 24. Mär 2005 14:00

Re: Feld +1
 
Stimmt... Sorry Denkfehler :roll:

sakura 24. Mär 2005 14:02

Re: Feld +1
 
Zitat:

Zitat von SubData
Stimmt... Sorry Denkfehler :roll:

Kannst es ja von Inc nach Succ korrigieren ;)

...:cat:...

SubData 24. Mär 2005 14:04

Re: Feld +1
 
Den meinte ich eigentlich auch.... Wird Zeit fürn Urlaub :mrgreen:


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:55 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz