absolute Sender

[Bjoerk]

Ok. Thanx. Sorry. Der Code steckt übrigens voll mit solchen (üblen) Sachen? Wo soll man z.B. hier einen try finally Block unterbringen? Und was soll das klein v mir sagen?

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;