各位好！ 我利用ListView去顯示FTP的目錄及檔案，剛開始連線成功時，在我的ListView下所顯示的檔案會全部顯示不會被切掉
後來我做了一個更新的按鈕，方式是以斷線然後在連線的方式
IdFTP1.Quit;
ListView2.Items.Clear;
IdFTP1.Connect;
因為我的Delphi是5.0 故沒有ListView2.clear的方法 只有 ListView2.Items.Clear;
但是這樣做顯示的在ListView上的檔名卻不完全會被切掉
請問是我哪裡做錯了呢 ..... ＞＜
謝謝各位的指導.....


procedure TfmCBID031002_1.IdFTP1AfterClientLogin(Sender: TObject);
var
SL : TStringList;
i : integer;
LI : TListItem;
begin
IdFTP1.ChangeDir('//return');
SL := TStringList.Create;
IdFTP1.List(SL,'*.SRP',false);
For i := 0 to SL.Count-1 do
begin
if strpos(PChar(SL.Strings[i]), '.') <> nil then
begin
LI := ListView2.Items.Add;
LI.ImageIndex := 2;
end;
LI.Caption := SL.Strings[i];
end;
end;
procedure TfmCBID031002_1.FormShow(Sender: TObject);
begin
filename:='';
try
IdFTP1.Connect;
except
showmessage('連線失敗，請檢查網路狀態，或是稍後再試！');
exit;
end;
end;
procedure TfmCBID031002_1.btnExitClick(Sender: TObject);
begin
IdFTP1.Quit;
Close;
end;
procedure TfmCBID031002_1.btnDownloadClick(Sender: TObject);
var
i : integer;
_aRootPath:String;
remotefile:string;
begin
if filename='' then
raise Exception.Create('請選擇下載之檔案！');
remotefile := IdFTP1.RetrieveCurrentDir;
for i := 0 to ListView2.Items.Count-1 do
if ListView2.Items.Item[i].Selected then
begin
remotefile:= remotefile
ListView2.Selected.Caption;
filename:= ListView2.Selected.Caption;
_aRootPath:=ExtractFilePath(Application.ExeName);
filename:=_aRootPath 'SEDownload\SRP\' filename;
IdFTP1.Get(remotefile,filename, True);
showmessage('下載完成');
end;
filename:='';
end;
procedure TfmCBID031002_1.ListView2Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to ListView2.Items.Count-1 do
if ListView2.Items.Item[i].Selected then
filename:= ListView2.Selected.Caption;
end;
procedure TfmCBID031002_1.btnRefreshClick(Sender: TObject);
begin
IdFTP1.Quit;
ListView2.Items.Clear;
IdFTP1.Connect;
end;

附加檔案：45aa78254baff_0115.JPG

編輯記錄

可以試著重設ViewStyle:=vsList;

編輯記錄

PO程式碼的方式請參考版規說明,煩請修改謝謝您的配合