TFileStream Strings saven kalppt nicht

[Dax]

String speichert man so:

Delphi-Quellcode:

procedure SaveString(S: String; Dest: TStream);
var i: Integer;
begin
  i := Length(S);
  Dest.Write(i, sizeof(i));
  Dest.Write(S[1], i);
end;