Zeichen aus dem ANSI-Code auslesen...

drsnoop · Beiträge: 37 Win XP D7 Enterprise

habe folgendes problem...

ich wollte ein programm schreiben, dass ein zeichen aus dem ASCII Code ausgibt, wenn man die Ordnungsnummer davon eingibt... das hat auch soweit geklappt...

markieren

Delphi-Quelltext

1:	tf_ausgabe.text:= (chr(eingabe));

nun will ich das selbe mit dem ANSI Code machen aber ich weiß net wie... *heul*

kann mir da jemand helfen?

_________________
(¯`·.¸¸.·´(¯`·.¸ Es gibt keine dummen Fragen... Nur dumme Menschen ¸.·´¯)`·.¸¸.·´¯)

blackbirdXXX · Beiträge: 1077 Erhaltene Danke: 1 Ubuntu Dapper

Also ich habs mal kompliziert gelöst:

markieren

Delphi-Quelltext

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

var  Letter: Char;
  I, y: Integer;
begin
memo1.Lines.Clear;
try
  Letter := High(letter);
  y := StrToInt(edit2.Text);
  for I := 1 to y do
  begin
   Inc(Letter);
  end;
  memo1.Lines.Add(edit2.Text + ' in ANSI = ' + letter);
except
 memo1.Lines.Clear;
 memo1.Lines.Add('Die eingegebene Zahl ist ungültig!');
end;
end;

in edit2.text schreibt man die Zahl hinein
in memo1 kommt das zeichen an.

_________________
Klein, schwarz und ärgert Techniker? Jumper!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme