WideString -> TStream?

[blackdrake]

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