08/10/30 07:13:34
おはようございます。
質問ですが、DelphiでidFTPを使って鯖にログインした時にリストボックスにアイテムをリストアップさせたいのですが、どうにもうまくいきません。
以下がコードです。
procedure Tform1.DisplayFTP;
var
i, c : Integer;
s : String;
begin
lbDirectory.Items.Clear;
FTP.List(lbDirectory.Items, '', false);
end;
procedure TForm1.FtpAfterClientLogin(Sender: TObject);
var
i, c : Integer;
s : String;
begin
DisplayFTP;
end;
おかしい箇所とか改善箇所ありますでしょうか？