Unicode Headline in Stringgrid

[Ydobon]

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.