Mhh... so in etwa? Hier sagt er, es seien inkompatible Typen.
Delphi-Quellcode:
function WideStringToString_Lossyless(UnicodeStr: WideString): string;
var
ByteArray: Array of Char; // Array of Byte
begin
SetLength(ByteArray, Length(UnicodeStr));
ByteArray := Copy(@ByteArray[0], @UnicodeStr[1], Length(UnicodeStr));
result := string(ByteArray);
end;