buchstaben/zeichen in ASCII-Code (->ZAHLEN) umwandeln

pHaRyNx · Verfasst: Mi 28.12.05 13:40

hallo!
ich brauche einen befehl, der mir buchstaben/zeichen in ASCII-Code (->ZAHLEN) umwandelt.
So soll z.B. ein Wort in Zahlen zerlegt werden, um damit Berechnungen anzustellen (Bsp.: Serialroutine).
mfg pHaRyNx

Ehemaliges Mitglied Erhaltene Danke: 1

Delphi-Hilfe -> Ord

pHaRyNx · Verfasst: Fr 30.12.05 13:55

soweit klappt der befehl auch, nur gibt es ein problem, wenn ich der Ord()-Anweisung eine Variable übergebe (s. Bsp.). Die Variable enthält einen einstelligen String, da die Funktion sonst sowieso meckert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

...
var teil1:String;
  teil2:Integer;

begin

{ist jetzt vereinfacht, sonst würde jetzt eine for-schleife das edit-feld zeichenweise einlesen und umwandeln}

teil1:='t';

teil2:=Ord(teil1);

end;

aber beim Compilen stoppt der Compiler immer, und ich weiss nicht warum.
was kann man da machen?
mfg pHaRyNx

Moderiert von raziel: Delphi-Tags hinzugefügt

stifflersmom · Beiträge: 194 XP /XP PRO/ SuSE div. D1 - D7, BDS 2006

Na, es muß ja auch

markieren

Delphi-Quelltext

1:	ord(teil1)

heißen.

Moin

Lannes · Verfasst: Fr 30.12.05 14:21

Hallo,

da wird der Compiler aber auch meckern,
da teil1 von user profile icon

pHaRyNx als String deklariert wurde :wink:

Die Funktion Ord erwartet einen Ausdruck des Typs Ordinal oder Char.
Der folgende Code gibt den ASCII-Code für das erste Zeichen im Edit aus:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var i : Integer;
    c : Char;
begin
  c := Edit1.Text[1];
  i := Ord(c);
  showmessage(IntToStr(i));

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

pHaRyNx · Verfasst: Di 03.01.06 16:27

ah, danke, ich wusste das mit dem CHAR nicht so ganz. danke. klappt jetzt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme