- procedure LoadLevel(Level: string);
- var
- F : TFileStream;
- i: integer;
- begin
- F := TFileStream.Create(Level, fmOpenRead);
- i:=0;
- while i < ObjektAnzahl do begin
- F.Read(Objekt[i], High(Objekt));
- i:=i+1;
- end;
- Form1.Caption:=floattostr(Objekt[0].Gewicht);
- F.Free;
- end;