HEX verarbeiten

[L85]

Also ich wollte mir eine art Terminal-Programm in Delphi schreiben und bin dabei auf ein Problem gestossen:
Ich wollte in einem Edit feld ein HEX Byte eingeben und dieses dann senden dazu wollte ich das Hex Byte mit chr() als String senden aber wie kann ich "chr('$'+edit1.text)" realisieren?

[Olli]

Hier erstmal was zum vorher lesen: http://www.delphipraxis.net/internal...ct.php?t=85567

... danach formuliere bitte deine Frage so, wie du sie meinst - wie auch immer das sein mag. Aktuell laedt sie naemlich nur zum Raetselraten ein.

[Namenloser]

Ich vermute, du willst ein Zeichen als entsprechenden hex-Wert darstellen.

Delphi-Quellcode:

var zeichen: char;
begin
  zeichen := 'a';
  showmessage( '$'+inttohex(ord(zeichen),2));
end;

[Khabarakh]

Ich vermute stark, er will es genau andersherum .

[Olli]

Ja und ich vermute, wir sollten aufhoeren zu vermuten und er/sie sollte die Frage eindeutig stellen.

[inherited]

Ich will auch mitraten
str:='$'+chr(Edit1.Text);

[HariboHunter]

Translation...

Ich gebe in das Edit den Hexwert ein.
Dann möchte ich diesen Wert als String senden.

Vorschlag:

String := edit1.text;

[IngoD7]

Zitat von L85:

aber wie kann ich "chr('$'+edit1.text)" realisieren?

Delphi-Quellcode:

//Beispiel
var
  Sendung : string;

begin
  Sendung := Chr(StrToInt('$'+Edit1.Text));
end;

StrToInt verwandelt z.B. ein '$41' in 65 und Chr macht daraus dann 'A'.

[L85]

Zitat von IngoD7:

Zitat von L85:

aber wie kann ich "chr('$'+edit1.text)" realisieren?

Delphi-Quellcode:

//Beispiel
var
  Sendung : string;

begin
  Sendung := Chr(StrToInt('$'+Edit1.Text));
end;

StrToInt verwandelt z.B. ein '$41' in 65 und Chr macht daraus dann 'A'.

Danke das habe ich gesucht!

Um es nochmal abschließend klar zustellen mein "HEX Byte" ist ein Byte das nicht durch eine Dezimalzahl(0..255) sondern durch ein Hexadezimalzahl representiert wird.