Hinzu:
Delphi-Quellcode:
var
as: AnsiString; // Ausgabe
ws: WideString; // Eingabe
begin
SetLength(as, Length(ws));
CopyMemory(@as[1], @ws[1], Length(as));
end;
Rückzu:
Delphi-Quellcode:
var
as: AnsiString; // Eingabe
ws: WideString; // Ausgabe
begin
SetLength(ws, Length(as div sizeof(WideChar)));
CopyMemory(@ws[1], @as[1], Length(ws) * sizeof(WideChar));
end;
Und nein, das macht keine Probleme bei einem leeren WideString, weil Delphi die "automagisch" nullterminiert, womit immer eine Null da sein sollte.