Klassen, Vererbung und CAST

[bernhard_LA]

Die Parameter Übergabe mit Procedure ProcessThisBitmap ( abmp as TBitmap) liefert bei mir folgenden Fehler :

Zitat:

[dcc64 Error] Unit_Testcases.pas(646): E2015 Operator not applicable to this operand type

auch der Versuch die Höhe / Weite nochmals expliziert zu setzen liefert keine Verbesserung- Beim Zugriff auf .width oder .height bekomme ich eine Zugriffsverletzung in der Unterrutine.
Der Aufruf von .width .height innerhalb des Codeblocks der Definition der Variablen funktioniert problemlos

Delphi-Quellcode:

procedure LoadJPEG(Bmp: TBitMap; Filename: string);
var
  JPEG: TJPEGImage;

begin
  JPEG := TJPEGImage.Create;
  try
    JPEG.LoadFromFile(Filename);

    with Bmp do
    begin

      PixelFormat := pf16bit;
      // Width := jpeg.Width;
      // Height := jpeg.Height;


      BMP.SetSize(jpeg.Width,jpeg.Height);

      Assign(JPEG);

      // PixelFormat := pf24bit;

    end;

  finally
    JPEG.Free;
  end;

end;