拜託幫幫我看哪裡有錯

發文回覆瀏覽次數：924

推到 Plurk!

推到 Facebook!

答題得分者是：cmj

boring11
一般會員

發表：10
回覆：7
積分：3
註冊：2003-04-04

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-06-22 10:58:57

IP:163.13.xxx.xxx 未訂閱

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) FileListBox1: TFileListBox; procedure TOpenFileListFileName(); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TOpenFileListFileName(); var FileList: TFileListBox; begin FileList:=TFileListBox.Create(Application); FileList.parent := Form1; {if self is not a form/control... replace with any form/control} FileList.Visible := False; FileList.Directory:='D:\'; end; end. 他說unsatisfied forward or external declaration 'TForm1.TOpenFileListFileName' 請問我錯在哪裡.....第一次使用自訂procedure許多地方不懂請各位大大幫幫忙....... 謝謝回答

cmj
高階會員

發表：15
回覆：242
積分：226
註冊：2002-06-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-06-22 11:30:08

IP:211.76.xxx.xxx 未訂閱

引言:

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl;    type
  TForm1 = class(TForm)
    FileListBox1: TFileListBox;
    procedure TOpenFileListFileName();//此行刪除,移到下面
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure TOpenFileListFileName();
var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TOpenFileListFileName();
var
FileList: TFileListBox;
begin
FileList:=TFileListBox.Create(Application);
FileList.parent := Form1; {if self is not a form/control... replace with any form/control}
FileList.Visible := False;
FileList.Directory:='D:\';
end;    end.    他說unsatisfied forward or external declaration 'TForm1.TOpenFileListFileName'
請問我錯在哪裡.....第一次使用自訂procedure許多地方不懂
請各位大大幫幫忙.......    謝謝回答

系統時間：2024-11-23 5:47:07

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！