procedure SetTheGeneration(g:integer;A,B:Tpicture);
function cost(A,B:TBitmap):extended;/
implementation
function cost(A,B:TBitmap):extended;
var
i,j: integer;
sum: extended;
begin
sum:=0.0;
for i:=0 to A.Width-1 do
begin
for j:=0 to A.Height-1 do
begin
sum:=sum abs((GetRValue(A.Canvas.Pixels[i,j])
GetGValue(A.Canvas.Pixels[i,j])
GetBValue(A.Canvas.Pixels[i,j]))-
GetRValue(B.Canvas.Pixels[i,j])-
GetGValue(B.Canvas.Pixels[i,j])-
GetBValue(B.Canvas.Pixels[i,j]))/3.0;
end;
end;
sum:=sum/(A.Width * A.Height);
result:=sum;
end;

值傳不過來，沒有辦法計算
是我設錯了嗎？
可以幫我看一下嗎？

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

不行！！ 他還是讀不到值？？

確定傳入的TBitmap是真的有東西
===================引 用 allan0208 文 章===================
不行！！ 他還是讀不到值？？

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

嗯！這個問題我用好了
謝謝！！