線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1312
推到 Plurk!
推到 Facebook!

Delphi Function problem???

答題得分者是:Miles
Zonda
一般會員


發表:23
回覆:40
積分:12
註冊:2003-10-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-12-30 17:58:28 IP:202.175.xxx.xxx 未訂閱
請教如何在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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-12-30 18:17:21 IP:218.160.xxx.xxx 未訂閱
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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-12-31 00:15:22 IP:202.175.xxx.xxx 未訂閱
Thanks!!!
系統時間:2024-03-29 23:18:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!