Hallo.
Danke für die Antwort
Delphi-Quellcode:
public
tempstream: TStream;
procedure Write(const Value; Size: Integer);
begin
mainform.tempstream.WriteBuffer(Value, Size);
end;
procedure WriteWideString(const Value: WideString);
begin
Write(Value[1], sizeof(Char)*(length(Value)+1));
end;
var
ws: widestring;
begin
ws := mainform.edt_vle1.text;
WriteWideString(ws+#00#00);
end;
Funktioniert leider nicht. In der Ausgabedatei steht weiterhin abcd[NULL][NULL], als wäre es ein AnsiString.
PS: Binary gibts übrigens bei
DEC von Hagen Reddmann. Konnte ich jetzt bei dieser WideString lösung steichen.
`
Edit: Fehler besteht sowohl bei Write() als auch bei WriteBuffer() von TStream.
Gruß
Daniel Marschall