Problem mit der Ord()-Verarbeitung

Waldkauz · Beiträge: 102

hallo!

Ich habe da ein kleines Problem mit dem Befehl Ord().
Ich komm einfach nicht dahinter was ich falsch mache.
Also das Programm was ich mache funktioniert u.a. (bzw. soll funktionieren) so:
Man gibt ein Wort ins Edit1 ein und beim Klick auf den Button wird das Wort aus ASCII-Zahlen zusammengesetzt im Panel1 ausgegeben.
Also z.B. "Aha" wird zu 65 - 104 - 97
Wo liegt der Fehler (außerdem mag er mein "i:=i+1" auch nicht)?

markieren

Delphi-Quelltext

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

var
i: integer;
chr:char;
laenge:integer;
wort:string;
begin
  wort:=Edit1.Text;
  laenge:=Length(wort);
  for i := 1 to laenge do
  begin
    chr:=wort[i];
    Panel1.Caption:=Panel1.Caption+' - '+Ord(chr);
    i:=i+1;
  end;
end;

AXMD · Verfasst: Mi 18.03.09 16:21

Waldkauz hat folgendes geschrieben :

Ich habe da ein kleines Problem mit dem Befehl Ord().
Ich komm einfach nicht dahinter was ich falsch mache.

Du hast vergessen, den Rückgabewert von Ord (Typ Integer) wieder in einen String umzuwandeln, um ihn an den anderen String anzuhängen, d.h. dir fehlt ein IntToStr um den Aufruf von Ord

Waldkauz hat folgendes geschrieben :

Wo liegt der Fehler (außerdem mag er mein "i:=i+1" auch nicht)

i wird bei jedem Schleifendurchlauf automatisch um 1 erhöht, das musst du nicht extra machen (lass die Zeile also einfach weg).

AXMD

Waldkauz · Beiträge: 102

Jetzt funktioniert es.
Vielen Dank!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme