WideString -> AnsiString -> WideString verlustfrei umwandeln

[Bummi]

Delphi-Quellcode:

var
 UCS,UCS2:WIDEString;
 ACS:AnsiString;
begin
   UCS := Edit1.Text;
   Setlength(ACS,Length(UCS)*2);
   Move(UCS[1],ACS[1],Length(UCS)*2);
   SetLength(UCS2,Length(ACS) div 2);
   Move(ACS[1],UCS2[1],Length(ACS));
   Edit2.Text := Ucs2;
end;