Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - String --> Asciiwert
elcomportal - Mi 07.05.03 18:52
Titel: String --> Asciiwert
Hi,
habe ein kleines Prob. Ich habe einen String 'a1c'. Jetzt brauche ich die ASCII Werte der einzelnen Zeichen. Also muss rauskommen $65 $31 $67
Wie geeehhht das?! So eine Sch... !
Vielen Dank für Eure schnellen Antworten! :wink:
Moderiert von 
tommie-lie: Topic verschoben und Titel geändert
inselberg - Mi 07.05.03 18:54
for i:=1 to length(str) do ascii:=ord(str[i]);
MSCH - Mi 07.05.03 19:32
ich bin gemein, das wird nie rauskommen :-)
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| function ConvertStr2Hex(Input:String):String;
var S:String;
I:Integer;
begin
S:=''; // set empty
for I:=1 to length(Input) do
S:= S+
Format('%x',[ ord ( input[i] ) ] );
result:= S;
end; |
grez
msch
elcomportal - Mi 07.05.03 21:06
Titel: Vielen Dank!
Super!! :D Vielen Dank für Eure Hilfe!
Es Grüsst Euch Torsten.
:wink:
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!