請問在自訂的procedure裡動態產生IdFTP這個元件時，在Create(Owner)這部份一直會出錯，該uses的都沒少

但它就是一直不會過，但如果改成Create(nil)那就可以了，請問這是為什麼呢？那改成Create(nil)又是什麼意思？

這個問題困擾我很久了，希望各位Delphi的高手能給予解惑？謝謝~

procedure FTP(ip,use,pas,path : string);
var PF : TIdFTP;
begin
PF := TIdFTP.Create(Owner);
PF.Host := ip;
PF.Username := use;
PF.Password := pas;
PF.Connect(True);
end;

錯誤訊息：

[Error] Unit1.pas(28): Undeclared identifier: 'Owner'

[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

TIdFTP應建立在像TForm的container,所以procedure需多一個參數

procedure FTP(ip,use,pas,path : string;Owner:TForm);
var PF : TIdFTP;
begin
PF := TIdFTP.Create(Owner);

......
end;

TIdFTP應建立在像TForm的container,所以procedure需多一個參數

procedure FTP(ip,use,pas,path : string;Owner:TForm);
var PF : TIdFTP;
begin
PF := TIdFTP.Create(Owner);

......
end;

請問如果說多一個參數，那在呼叫時也需要多一個參數嗎？因為我加上Owner:Tform之後在呼叫時就會出現問題了！

而如果是Create(nil)那這是什麼意思呢？因為必須用到，所以急需知道它是什麼意思和它的用途！希望各位Delphi高手

能夠解答，十分感謝！

您可以去看看TIdFTP.Create宣告的原型

constructor Create(AOwner: TComponent); override;

大意上是要建立在TComponent類的容器上,若您使用nil為建立,那麼,TIdFTP在程式結束時並不會被釋放掉,最好是傳遞給它擁有者像TForm或TPanel等容器元件

真的很感謝您的解答，現在還有最後一個疑問就是，我在呼叫procedure時需要再加上什麼參數嗎？

因為照原本的呼叫它會有錯誤！感謝您的解答！

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FTPClient;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
FTP(Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text)
end;

錯誤訊息如下：

[Error] Unit1.pas(32): Not enough actual parameters

[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

傳入Self

procedure TForm1.Button1Click(Sender: TObject);
begin
FTP(Edit1.Text,Edit2.Text,Edit3.Text,Edit4.Text,Self)
end;

此時,self指的是TForm1物件本身,因為Button1Click是屬於TForm1的事件

真的很感謝您解答了我這些多問題，讓我學到很多，但是我還是有一個疑問，如果我是寫成unit的話，那我呼叫時該傳入哪呢？

我如果還是傳入self 的話，那它就會出錯了，那這時我應該傳入哪呢？又該寫什麼參數呢？

我的unit名稱是FTPClient，而unit裡的procedure名稱是FTP，我試了好久，寫成FTPClient也不對，而寫FTP也不對，

那應該寫什麼才好呢？

感謝您的解答！