ClassType in ein Stream Speichern

[Geri]

Hallo Sirius

Vielen Dank für die Infos.

Ich meine schon, dass ich eine Möglichkeit zur Identfikation benötige. Die Daten stecken in einem File. Der Ladevorgang kann nach erneutem Aufruf des Programmes stattfinden.

Meine aktuelle Lösung sieht so aus, dass ich

Delphi-Quellcode:

Type TMyClassType = (
                             ctunknown,
                             ctPoint,
                             ctLine
                          );


type 
  TPoint = class(TObject)
              mClassID:TMyClassType;
              Constructor Create();
              procedure Write(s:Stream);virtual; 
           end;

Constructor TPoint.Create(s:TStream);
Begin
  inherited;
  mClassID:=ctPoint;
end;

Procedure TPoint.Write(s:TStream);
Begin
  s.write(mClassID,sizeof(mClassId); // schreibe den 
End;

Beste Grüsse

Geri