String --> Asciiwert

elcomportal · Beiträge: 48 Win XP home D5 standard

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 · Beiträge: 458

for i:=1 to length(str) do ascii:=ord(str[i]);

_________________
hans bist du das ?

MSCH · Verfasst: Mi 07.05.03 19:32

ich bin gemein, das wird nie rauskommen :-)

markieren

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 · Beiträge: 48 Win XP home D5 standard

Super!!

Vielen Dank für Eure Hilfe!
Es Grüsst Euch Torsten.
:wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme