Hexwert als string in WideChar

[bioser]

Hallo,

ich habe einen Hexwert als string vorliegen und
möchte diesen nun in der widechar-Funtion
folgendermaßen verwenden:

TNTLabel1.Caption := WideChar($...)

Bei dem Hexwert handelt es sich immer um ein
Zeichen. Kann mir jemand einen Tip geben ?
Danke !

Gruss
bioser

[Aenogym]

Zitat von bioser:

Hallo,

ich habe einen Hexwert als string vorliegen und
möchte diesen nun in der widechar-Funtion
folgendermaßen verwenden:

TNTLabel1.Caption := WideChar($...)

Bei dem Hexwert handelt es sich immer um ein
Zeichen. Kann mir jemand einen Tip geben ?
Danke !

Gruss
bioser

hi,

WideChar() ist keine funktion, sondern eine Typumwandlung.
wenn ich dich richtig verstehe, möchtest du ein unicode-zeichen anzeigen, von dem du nur den hexwert kennst (in vorm eines strings).
dazu müsstest du den hex-string in einen echten hexwert umwandeln (ich glaube, dafür gibt's StrToHex). wenn du die hexzahl als richtigen hex-datentyp hast, könntest du sie einer zahl-zu-unicode-string funktion übergeben. leider kenne ich jetzt keine.

aenogym

[xaromz]

Hallo,

Zitat von Aenogym:

wenn du die hexzahl als richtigen hex-datentyp hast, könntest du sie einer zahl-zu-unicode-string funktion übergeben. leider kenne ich jetzt keine.

Dazu braucht man keine spezielle Funktion. Einfach StrToInt aufrufen (kann Hex-Zahlen verarbeiten) und das Ergebnis nach WideChar casten.

Gruß
xaromz

[Aenogym]

Zitat von xaromz:

Hallo,

Zitat von Aenogym:

wenn du die hexzahl als richtigen hex-datentyp hast, könntest du sie einer zahl-zu-unicode-string funktion übergeben. leider kenne ich jetzt keine.

Dazu braucht man keine spezielle Funktion. Einfach StrToInt aufrufen (kann Hex-Zahlen verarbeiten) und das Ergebnis nach WideChar casten.

Gruß
xaromz

du meinst, folgendes funktioniert?

StrToInt($1234); das wär mir neu - aber es wäre praktisch

[xaromz]

Hallo,

Klar geht das.

Gruß
xaromz

//Edit: Natürlich geht nurStrToInt('$1234');

[shmia]

Alles viel zu umständlich.
Es geht doch ganz einfach:

Delphi-Quellcode:

var
  a : WideChar;
  b : WideString;
begin
   a := #$1234;  
   b := #$000D#$000A;
end;

[mael]

Zitat von bioser:

TNTLabel1.Caption := WideChar($...)

Ich verstehe nicht ganz Dein Problem, das funktioniert doch wunderbar, z.B. so:
TNTLabel1.Caption := WideChar($263A); erzeugt mit der richtigen Schriftart einen Smiley.
MS Sans Serif ist für Unicode nicht geeignet, da ist Arial oder Tahoma besser.