下面的这段程序编译时，为何总出现"Unsatisfied forward or external declaration:'TForm1.DownloadFile'"的错误信息？

Question

试试用下面的一种（Delhpi很久没动了，我都记不起那个才是正确的 :-) 可能是第一种，你查查关于forward的HELP ）function DownloadFile(Source, Dest: string): Boolean;forward;orforward function DownloadFile(Source, Dest: string): Boolean;or
function DownloadFile(Source, Dest: string): Boolean:forward;

Answer 1

是不是要改成function DownloadFile(Source, Dest: string): Boolean;override;

Answer 2

试试:
function TForm1.DownloadFile(Source, Dest: string): Boolean; //notice TForm1
begin
  try
    Result :=  UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
  except 
    Result := False;
  end; 
end; 
; 

Answer 3

DownloadFile是TForm1 的成员涵数必需加前缀 TForm1
或:
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
//    function DownloadFile(Source, Dest: string): Boolean;
  end;
 function DownloadFile(Source, Dest: string): Boolean;
  begin
  // 
  end;.......

Answer 4

既然声明downloadfile()为类TForm1的一个函数，那么在实现这个函数时，函数声明前必须有类前缀TForm1,如下：
function TForm1.DownloadFile(Source, Dest: string): Boolean;
begin
  ..............................
  .............................. 
end;
建议在声明部分写好函数原形后，按shift+ctrl+c自动完成实现部分的部分代码！