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;