drsnoop - Mi 10.12.03 21:21
Titel: Zeichen aus dem ANSI-Code auslesen...
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...
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?
blackbirdXXX - Fr 19.12.03 19:55
Also ich habs mal kompliziert gelöst:
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.