Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - ascii code to zeichen / zeichen to ascii code?


whitesnake - Mo 23.10.06 15:31
Titel: ascii code to zeichen / zeichen to ascii code?
hi,
also ich hänge gerade bei der o.g. aufgabe...
man brauch ja, um ein zeichen in einen ascii wert zu ändern, die funktion CHR(x) wobei x vom typ CHAR sein soll?

so und umgekehrt brauch man die funktion ORD(y) wobei y vom typ INTEGER sein soll?

falls richtig wills mir einfach nicht einfallen wie ich das realisieren kann, klingt vllt blöd, aber hab total das brett vorm kopf... auch wegen den typen CHAR und INTEGER...

hat vllt jemand code schnipsel o.Ä. in einfachem code (also nix mit komplizierten funktionen o.Ä.) ??

wäre euch sehr dankbar :)


Kroko - Mo 23.10.06 15:47

Chr(65) -> gib ein 'A' aus !
Ord('A') -> gibt 65 aus!

einfach mal Ord und Chr in Delphi eingeben und F1 drücken!


whitesnake - Mo 23.10.06 15:50

ja hmm das meint ich etwas anders...aber egal... ich glaub ich weiß schon wie...allerdings weiß ich nicht wie ichs hinbekomme, dass wenn ich die entertaste drücke oder die return taste, dass dafür der code ausgegeben wird (in nem edit feld)


Gausi - Mo 23.10.06 15:55

KeyPreview der Form auf True, und dann sowas:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  edit1.text := IntToStr(Key);
  key := 0;
end;


whitesnake - Mo 23.10.06 18:22

danke, klappt zwar nich aber egal... ähhhhmm...

wie kann ich denn, wenn ich die leertaste z.b. hab, das ascii zeichen der leertaste in der ORD funktion darstellen`?

wäre das
ORD( );

oder
ORD(' ');

nichts klappt :S


stifflersmom - Mo 23.10.06 18:40

Du solltest mal den Tipp beherzigen und versuchen die OH zu ORD und CHR zu verstehen.
Aber sei's drum;

Platzier ein Edit auf Deinem Formular und im KeyPress-Ereignis des Edit-feldes gibst Du folgendes ein


Delphi-Quelltext
1:
ShowMessage(IntToStr(Ord(Key)));                    


Dann siehst Du auch welcher Ascii-Wert hinter deinem angesprochenem Leerzeichen steht.

Moin


Saubäär - Mo 23.10.06 18:42

Brauchst du Code oder reicht ein Programm?
Auf meiner HP habe ich im Dowloadbereich ein kleines Proggi. (Allerdings ohne Code)

Gruß

Saubäär


Blackheart666 - Mo 23.10.06 19:50

Hier mal Prog und Source ist auch unter
http://www.delphi-forum.de/viewtopic.php?p=316137#316137
zu finden ohne Source.
Blackheart666