funkce BMPtoJPG v delphi

Zdravím
Mám takovou funkci na konverzi formátu

function BMPtoJPG(var BMPpic, JPGpic: string):boolean;
var Bitmap: TBitmap;
    JpegImg: TJpegImage;
begin
  Result:=False;
  Bitmap := TBitmap.Create;
  try
   Bitmap.LoadFromFile(BMPpic) ;
   JpegImg := TJpegImage.Create;
   try
    JpegImg.Assign(Bitmap) ;
    JpegImg.SaveToFile(JPGpic) ;
    Result:=True;
   finally
    JpegImg.Free
   end;
  finally
   Bitmap.Free
  end;

funkce

BMPtoJPG('C:\webcam.bmp','C:\webcam.jpg');

ale hází mi to chybu

[Error]Constant object cannot be passed as var parameter

co dělám špatně? díky

Předmět	Autor	Datum
function BMPtoJPG():boolean; var Bitmap: TBitmap; JpegImg: TJpegImage; begin Result:=False; Bitmap :… Wikan 10.01.2012 14:25	Wikan	10.01.2012 14:25
Zmen deklaraci funkce na (odstran var): function BMPtoJPG(const BMPpic, JPGpic: string):boolean; A… Jan Fiala 10.01.2012 14:50	Jan Fiala	10.01.2012 14:50
function BMPtoJPG(const BMPpic, JPGpic: string):boolean; toto je to "správné ořechové" díky poslední Víťa 10.01.2012 15:24	Víťa	10.01.2012 15:24

function BMPtoJPG():boolean;
var Bitmap: TBitmap;
    JpegImg: TJpegImage;
begin
  Result:=False;
  Bitmap := TBitmap.Create;
  try
   Bitmap.LoadFromFile('C:\webcam.bmp') ;
   JpegImg := TJpegImage.Create;
   try
    JpegImg.Assign(Bitmap) ;
    JpegImg.SaveToFile('C:\webcam.jpg') ;
    Result:=True;
   finally
    JpegImg.Free
   end;
  finally
   Bitmap.Free
  end;

Zmen deklaraci funkce na (odstran var):

function BMPtoJPG(const BMPpic, JPGpic: string):boolean;

A koukni se do helpu na typy parametru ve funkcich a procedurach - var, const, out, ...

function BMPtoJPG(const BMPpic, JPGpic: string):boolean;

toto je to "správné ořechové" díky

Zpět do poradny Odpovědět na původní otázku Nahoru