1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

If SaveDialog.Execute
  Then
   Begin
   Stream:=TFileStream.Create(SaveDialog.FileName,fmCreate);
   Try
    Len:=Length(EigeneObjekte);                   <-----(Error:Inkompatible Typen)
    Stream.Write(Len,SizeOf(Len));
    Stream.Write(EigeneObjekte[1].EigeneGeraden[1].Name,SizeOf(EigeneObjekte.EigeneGeraden[1].Name)); <--(Error:          
 Klasse besitzt keine STandarteigenschaft)   
   Finally
    Stream.Free;
   End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Type
TEigenesObjekt=Record
   Name:String[255];
   Status:Boolean;
   EigeneGeraden:Array[1..25] Of TGerade;
   EigeneEbenen:Array[1..25] Of TEbene;
   EigeneVielecke:Array[1..25] Of TVieleck;
  End;

Var
EigeneObjekte:Array[1..25] Of TEigenesObjekt;                    

1:
2:
3:
4:
5:

Var
 SaveDialog:TSaveDialog;
 Stream:TStream;
 i,j:Integer;
 Len:Longint;