string to UTF 16

[samso]

Probiere mal:

Delphi-Quellcode:

function AnsiToUtf16(const s: AnsiString): WideString;
begin
  Result := s;
end;