Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Alphanumerisch Werte erhöhen (https://www.delphipraxis.net/102506-alphanumerisch-werte-erhoehen.html)

gaisser 30. Okt 2007 08:14


Alphanumerisch Werte erhöhen
 
Hallo,

ich habe ein Problem. Ich will füe eine Datenbank dem User die Möglchihkeit geben das er bei der Nummervergabe für einen neuen Datensatz(Kunden) auch z.b einen Wert wie KD1000 oder 1000KD eingben kann. Aber wie erhöhe ich die Werte dass KD10001 oder 1000KE rauskommt??? :oops:


Gruß

Jochen

thx.azrael 30. Okt 2007 09:20

Re: Alphanumerisch Werte erhöhen
 
Hallo,
du könntest z.B. immer das letzte zeichen vom String nehmen, dir den ascii wert per ord() holen und den dann "um eins erhöhen". du musst dabei natürlich darauf achten das du bei 9 bzw. Z aufhörst und dann die Stelle davor um 1 erhöhst und die letze stelle dann auf 0 bzw. A setzt. Und das ganze dann mit chr() wieder an die jew. Stelle im string schreibst.
Das wäre so die erste spontane idee meiner seits.
ich hoffe es hilft oder du bekommst noch nen besseren tip. ;)

mfg

azrael

Jelly 30. Okt 2007 09:32

Re: Alphanumerisch Werte erhöhen
 
Arbeiten in einem Zahlensystem mit Basis 36 (0-9 & A-Z)... Zu Umwandlungen von einem Zahlensystem in ein anderes gibts einige Threads hier.

EDIT: Ich hatte sowas mal vor Jahren bei Delphi3000 gepostet... Siehe hier. Damit solltest du was anfangen können.


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:52 Uhr.

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