In einem Programmierforum gibt es natürlich auch eine einfache Methode für den kleinen Hunger zwischendurch.
Delphi-Quellcode:
function UniHexe(wstr: WideString): String;
var i: Integer;
begin
i:=1;
while i<=Length(wstr) do
begin
// falls ein paar Surrogates herumschwirren und der original Codepunkt gesucht ist
//if (Ord(wstr[i])>$D800) and (Ord(wstr[i])<$DBFF) then
//begin
// result:=result+' #$'+IntToHex((Ord(wstr[i]) shl 10) + Ord(wstr[i+1]) + $FCA02400, 6);
// Inc(i);
//end else
// zur direkten Eingabe müssen aber die Paare genommen werden
result:=result+' #$'+IntToHex(Ord(wstr[i]), 4);
Inc(i);
end;
end;
Nebenbei, in Word den Cursor neben das interessierende Zeichen und Alt+C drücken zeigt den Code auch an.