动态生成Tidftp控件时,Tidftp.create()//()应该填什么?,如何释放?(50分)

  • 主题发起人 主题发起人 yecloudy
  • 开始时间 开始时间
use .... idftp,idtcpclient;
var
Form1: TForm1;
xx:tidftp;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
xx:=tidftp.create(nil);
end;
// compile ok
 
procedure TForm1.Button2Click(Sender: TObject);
begin
xx.Free;
xx:=nil;
end;
 
用tidftp.create(self)创建,用tidftp.free释放
 
同意 pnyexin
 
后退
顶部