propertys speichern mit filestream.writecomponent

[richard_boderich]

hallo,

ich moechte mehrere objecte laden. habe aber ein problem mit filestream. vielleicht mach ich auch einen denkfehler?

tum laden nehm ich folgenden code

Delphi-Quellcode:

var
  FileStream : TFilestream;
  Item: TMapobject;
  Obj : TObject;
  i:integer;
begin
  FileStream:=TFileStream.Create('test',fmOpenRead);

  for i:=filestream.position to filestream.Size-1 do
  begin
    item:=FileStream.ReadComponent(nil) as TMapObject;   //fehler tritt auf. (stream read error)

    item.Create(self,image1.Left+item.MapX,image1.Top+item.mapy,item.einheitentyp,item.status);

    Liste.add(Tobject(item));
  end;

also meine speicherroutine funktioniert. er geht ne objectlist durch und speichert die objecte schoen nacheinander. stehen alle in der datei drin.
mein problem is, das ich beim laden ja noch nicht weis wieviele objecte enthalten sind ich wollt das mit der for next machen ala "until EOF". aber
irgendwie mach ich das entweder einen denkfehler oder aber was anderes. laed readcomponent den den ganzen stream auf einmal oder wie bei readln nur immer einen datensatz?

Gruß richard