ANSI-String nach Unicode wandeln

[BlueStarHH]

Zitat von Zacherl:

Probiers mal so:

Delphi-Quellcode:

var
  A: AnsiString;
  U: String;
  I: Integer;
begin
  A := #0'H'#0'a'#0'l'#0'l'#0'o';
  SetLength(U, Length(A) div 2);
  for I := 1 to Length(A) do
  begin
    if (A[I] <> #0) then
      U[I div 2] := Char(A[I]);
  end;
  ShowMessage(U);
end;

In A kann ein beliebier Unicode string stehen. Es müssen dort keine Nullen stehen! Es kann dort z.B. auch auch #5 stehen.