Delphi Function problem??? |
答題得分者是:Miles
|
Zonda
一般會員 發表:23 回覆:40 積分:12 註冊:2003-10-30 發送簡訊給我 |
請教如何在Delphi5.0上自設一些Function 或 Procedure
小弟在設Function時出現一句Error Message
而Comparsion所傳入的Global variable 'different'應放在哪裡
因為我覺得問題在這裡而不知怎樣解決???
[Error]Unit1.pas(17)Unsatisfied forward or external declaration:'TForm1.Comparsion' unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, jpeg, ieview, imageenview, imageen; type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
ImageEn1: TImageEn;
ImageEn2: TImageEn;
ImageEn3: TImageEn;
procedure Button1Click(Sender: TObject);
----->procedure Comparsion(different: Integer);
private
{ Private declarations }
public
{ Public declarations } end; var
Form1: TForm1;
different: Integer;
path1, path2, path3, path4: String;
bitmap1, bitmap2: TBitmap;
implementation procedure TForm1.Button1Click(Sender: TObject);
var
jpg1: TJPEGImage;
jpg2: TJPEGImage;
temp: TBitmap;
begin
path1 := 'G:\Program Files\Borland\Delphi5\Test_Image\P1020443.JPG';
path2 := 'G:\Program Files\Borland\Delphi5\Test_Image\P1020444.JPG';
path3 := 'G:\Program Files\Java\J2SDK1.4.1\bin\SendImgUDP\F1.PNG';
path4 := 'G:\Program Files\Java\J2SDK1.4.1\bin\SendImgUDP\';
bitmap1 := TBitmap.Create;
bitmap2 := TBitmap.Create;
temp := TBitmap.Create;
try
ImageEn2.LoadFromFileJpeg(path1);
ImageEn3.LoadFromFileJpeg(path2);
ImageEn2.SaveToFileBMP(path4 'temp1.bmp');
ImageEn3.SaveToFileBMP(path4 'temp2.bmp');
bitmap1.LoadFromFile('G:\Program Files\Java\J2SDK1.4.1\bin\SendImgUDP\temp1.bmp');
bitmap2.LoadFromFile('G:\Program Files\Java\J2SDK1.4.1\bin\SendImgUDP\temp2.bmp');
Comparsion(different);
if (different > 0) then
begin
DeleteFile(path1);
CopyFile(PChar(path2), PChar(path1),False);
ImageEn1.LoadFromFileBMP(path4 'temp2.bmp');
ImageEn1.SaveToFilePNG(path3);
DeleteFile(path4 'temp2.bmp');
DeleteFile(path4 'temp1.bmp');
end
else
Edit1.Text := 'Image are the same!!!';
Edit1.Text := IntToStr(different);
finally
bitmap1.Free;
bitmap2.Free;
end;
end; procedure Comparsion(different: Integer);
var
x, y, i: integer;
begin
......
end;
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
Hi Zonda 您好:
兩種方法
1.宣告為Function function Comparsion : Integer; if Comparsion > 0 then begin ... end; *********************** 2.宣告為Procedure procedure Comparsion(Var different : Integer); Comparsion(abc); if abc > 0 then begin ... end;我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
Zonda
一般會員 發表:23 回覆:40 積分:12 註冊:2003-10-30 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |