請幫忙看一下這段程式碼, 為何在1.IdFTP1.List(Ls1);與2.IdFTP1.List(Ls2);程式進行時,這兩處會有錯誤訊息: "Invalid floating point operation". 謝謝 procedure Tfmload.acf2Execute(Sender: TObject); var Ls1, Ls2: TStringList; begin try Ls1:=TStringList.Create; Ls2:=TStringList.Create; IdFTP1.ChangeDir('\door\linedown\exe\'); //到ftp之door\linedown\exe目錄 IdFTP1.TransferType := ftASCII; IdFTP1.List(Ls1); if Ls1.Count > 0 then begin IdFTP1.Get('\door\linedown\exe\lineexe.rar', 'd:\doorexe\line\lineexe.rar', false, true); end; IdFTP1.ChangeDir('\door\linedown\mdb\'); IdFTP1.TransferType := ftASCII; IdFTP1.List(Ls2); if Ls2.Count > 0 then begin IdFTP1.Get('\door\linedown\mdb\lineedit.rar', 'd:\doorexe\line\lineedit.rar', false, true); end; Finally idftp1.Disconnect; Ls1.Free; Ls2.Free; end; end;