absolute Sender

[himitsu]

Oder es kommt vom TsgDXFViewPort

Zitat:

Delphi-Quellcode:

    case StrIndex(vFileExt, Exts) of
      0: sgCADImage := TsgCADdxfImage.Create;
      1: sgCADImage := TsgDWGImage.Create;
      2..15: sgCADImage := TsgHPGLImage.Create;
      16: sgCADImage := TsgSVGImage.Create;
      17: sgCADImage := TsgCGMImage.Create;
    end;

Was passiert, wenn die Dateiendung nicht gefunden wird?

Da nur Creates in dem CASE sind, dann das Try direkt danach beginnen,
oder man erstellt hier nicht, sondern speichert den Typ nur in einer Klassen-Variable (TClass)
und macht das Erstellen über MyImageClass.Create und Try-Finally dann danach.