IdFTP1 如何取得服务器上的文件名呀,急死我了.

Question

idFTPDirectoryList.name.Strings[i];
IdFTP好像没有这个属性呀,我用的是DELPHI6用以下也不行,出错
function GetNameFromDirLine(Line: string; var IsDirectory: Boolean): string;
var
  i: Integer;
  DosListing: Boolean;
begin
  IsDirectory := Line[1] = 'd';
  DosListing := false;
  for i := 0 to 7 do begin
    if (i = 2) and not IsDirectory then begin
      IsDirectory := Copy(Line, 1, Pos(' ', Line) - 1) = '<DIR>';
      if not IsDirectory then
        DosListing := Line[1] in ['0'..'9']
      else DosListing := true;
    end;
    Delete(Line, 1, Pos(' ', Line));
    while Line[1] = ' ' do Delete(Line, 1, 1);
    if DosListing and (i = 2) then break;
  end;
  Result := Line;
end;
filename := GetNameFromDirLine(Line, IsDirectory);[Error] ZmFtp.pas(137): Undeclared identifier: 'IsDirectory'

Answer 1

var
  i: Integer;
  DosListing: Boolean;
  IsDirectory: Boolean;//你忘了定义IsDirectory

Answer 2

[Error] ZmFtp.pas(137): Undeclared identifier: 'IsDirectory'