Objektinstanz an Hauptprogramm übergeben

[Neutral General]

Hauptprogramm:

Delphi-Quellcode:

procedure TForm1.tbtnOpenClick(Sender: TObject);
var newf: IFileFormat;
    pData: PRawData;
begin
  if dlgOpenFile.Execute then
  begin
    newf := ExtList.GetFormat(ExtractFileExt(dlgOpenFile.Filename)); // Interface bekommen
    if not Assigned(newf) then
      exit;
    newf.LoadFromFile(PChar(dlgOpenFile.Filename)); // Datei laden
    pData := newf.GetData; // Datei-Daten erhalten
    case pData^.DataType of
      dtImage: begin
                 with TForm2.Create(Application) do
                 begin
                   Image1.Picture.Bitmap := PBitmap(pData.Data)^; // Ich weiß, ist zu umständlich aber jetzt egal
                   Caption := dlgOpenFile.Filename;
                 end;
               end;
      dt3D: with TForm3.Create(Application) do
            begin
              A3DFile := P3DDataFile(pData.Data)^;
            end;
    end;
  end;
end;