Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Chinesensong ... (https://www.delphipraxis.net/61353-chinesensong.html)

Foxgrove 20. Jan 2006 11:53


Chinesensong ...
 
Hallo,

wie kann man eigentlich den ASCI-Wert eines einzelnen
Buchstabens "herauslesen".
Mit CHR( ) kann man wohl schreiben und Strings erstellen.

Aber ich möchte einen Buchstaben aus einem String
isolieren und dann dessen
ASCii - Wert ermitteln. Dann evtl. umtauschen ("Chinesensong")
oder die Summer aller ASCII-Werte eines Wortes addieren.

Gruß Foxgrove

Angel4585 20. Jan 2006 11:56

Re: Chinesensong ...
 
probiers mal mit Ord()

hitzi 20. Jan 2006 11:56

Re: Chinesensong ...
 
Such mal nach ORD(). An die einzelnen Zeichen kommst du direkt über den String (z.B. s[1] = erstes Zeichen, s[9] = neuntes Zeichen). Die Textlänge kannst du mit Length() ermitteln. Damit solltest du dein Problem lösen können.

phlux 20. Jan 2006 11:57

Re: Chinesensong ...
 
foo[i] wobei i der index ist und dann mit ord() in die zahl umwandeln

himitsu 20. Jan 2006 12:29

Re: Chinesensong ...
 
3-mal die "selbe" Antwort ... ich mach' diesesmal da nicht mit,
aber möchte doch mal darum bitten, daß du dir eine bessere Überschrift aussuchst :warn:

Foxgrove 23. Jan 2006 17:00

Re: Chinesensong ...
 
Danke, alles klar ...

ORD(mTex[mI]);

das war's

Foxgrove
Die Benachrichtiguns-Mailadresse funktioniert aber nicht.

inherited 24. Jan 2006 20:44

Re: Chinesensong ...
 
Verschlüsselungsmäßig wobei s der String mit dem Text ist und x die Zahl um die der ASCii-Wert erhöt werden soll:
Delphi-Quellcode:
for i := 1 to Lenth(s) do s[i]:=Char(x xor Ord(s[i]));


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:18 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