Record laden

[himitsu]

Oder die Datei bis zum Dateiende (EndOfFile) abarbeiten und jeweils den grad gelesenen Eintrag anhängen,

aber du hast doch die Anzahl in der Datei abgespeichert?
Also brauchst du die doch einfach nur auszulesen.

Delphi-Quellcode:

Stream.Read(Len, SizeOf(Len)); 
SetLength(T, Len); 
for I := 0 to Length(T) - 1 do 
begin 
  Stream.Read(Len, SizeOf(Len)); 
  SetLength(T[I].B, Len);
  Stream.Read(PChar(T[I].B), Len); 
end;