Probleme mit Streams und Read bzw. Write

[barf00s]

das würde aber bedeuten das ein einziger datensatz 800 bytes belegt (4*200bytes)
das könnte man auch verkleinern in dem man "string" lässt und lediglich die speicher"routine" abändert

um nen string innem stream zu speichern könnte man sich folgender prozedur bedienen

Delphi-Quellcode:

procedure WriteStringToStream(Stream: TStream; const Value: string);
begin
  Stream.Write(Length(Value, 4); // 4 = SizeOf(Length(Value)) = SizeOf(Integer)
  Stream.Write(Value[1], Length(Value));
end;

das lesen analog dazu

Delphi-Quellcode:

procedure ReadStringFromStream(Stream: TStream; var Value: string); // wenn nötig kann man das var auch weglassen
var
  iLength: integer;

begin
  Stream.Read(iLength, 4);
  SetLength(Value, iLength);
  Stream.Read(Value[1], iLength);
end;