如下所示，小弟在練習函式傳址的功夫，可是執行總是說錯，是什麼關係呢可否指導一下呢?
謝謝。主要是利用一支函式來進行複製之後傳回主程式。
[code]
procedure TForm1.NewBmp(bmp:TBitmap;var bmp2:Tbitmap);
var
Fullscreen : TBitmap;
begin
bmp2:=TBitmap.Create;//
Fullscreen:=TBitmap.Create;//
Fullscreen.Width :=10;
Fullscreen.Height :=10;
Fullscreen.Canvas.CopyRect(Rect(0,0,10,10),bmp.Canvas ,Rect(0,0,10,10));
bmp2:= FullScreen;
FullScreen.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
bmp,bmp2:TBitmap;
begin
Bmp:=TBitMap.Create ;
Bmp2:=TBitMap.Create ;

bmp.LoadFromFile('qq.bmp');
newBmp(Bmp,bmp2);
Image1.Picture.Bitmap := bmp2;
bmp.free;
bmp2.Free;
end;
[/code]

------
xinjier禮品贈品