Klassen, Vererbung und CAST

[DeddyH]

Ich verstehe auch nicht, was Du da tust. Wie wäre es denn hiermit?

Delphi-Quellcode:

type
  TBitmapHelper = class helper for Vcl.Graphics.TBitmap
    procedure LoadJPEG(Filename: string);
  end;

...

implementation

{$R *.dfm}

uses jpeg;

{ TBitmapHelper }

procedure TBitmapHelper.LoadJPEG(Filename: string);
var
  lJPG: TJPEGImage;
begin
  lJPG := TJPEGImage.Create;
  try
    lJPG.LoadFromFile(Filename);
    Assign(lJPG);
  finally
    lJPG.Free;
  end;
end;

// Benutzung:
procedure TFormDingens.MachWas;
var
  lBMP: TBitmap;
begin
  lBMP := TBitmap.Create;
  try
    lBMP.LoadJPEG(JPEGFilename);
    lBMP.SaveToFile(BMPFilename);
  finally
    lBMP.Free;
  end;
end;

[edit] Benutzungsbeispiel ergänzt [/edit]