String in Stream speichern

[Corpsman]

ich mach das immer mit

Delphi-Quellcode:

var
c:Char;
s:String;
i:Integer;
begin
  i := length(s);
  Stream.write(i,sizeof(i));
  for i := 1 to length(s) do begin
    c := s[i];
    stream.write(c,sizeof(c));
  end;
end;