if IdFTP.DefStringEncoding = IndyTextEncoding_UTF8 then begin IdFTP.List(); end else begin IdFTP.List('', False); end; for i := 0 to IdFTP.DirectoryListing.Count - 1 do begin VirtualNode := FTPTreeView.AddChild(nil); VirtualNodeData := FTPTreeView.GetNodeData(VirtualNode); VirtualNodeData^.ItemType := IdFTP.DirectoryListing.Items[i].ItemType; VirtualNodeData^.FileName := IdFTP.DirectoryListing.Items[i].FileName; end; IdFTP.List默认会以UTF8来处理.
----------------------------------------------