FTP.List

[Peshka5]

Добрый день, господа знатоки.
Я начинающий программист на Delphi пишу FTP клиент(для себя). Столкнулся на стадии прописывания команды list. Надо узнать, где названия папок, а где файлов. Нашел решение через букву 'd' в правах. Вот код:

procedure TForm1.listClick(Sender: TObject);
{
drwxr-xr-x 1 ftp ftp              0 Jul 26 17:05 msc
-r-xr-xr-x 1 ftp ftp       10620880 Aug 28  2012 some file.exe
}
var
listfiles:tstringlist;
v:integer;
begin
listfiles:=tstringlist.create;
ftp.List(listfiles,'',True); //Получаю list с правами. 
for v:=0 to listfiles.Count-1 do                         //Ищу букву 'd'.
if listfiles[v][1]='d' then listbox.Items[v]:='Dir ';//Помечаю в listbox строчку с папкой 
ftp.List(listfiles,'',False); //Получаю просто названия файлов и папок.
for v:=0 to listfiles.Count-1 do listbox.Items[v]:=listbox.Items[v]+listfiles[v];//Добавляю их в listbox к помеченным строчкам.
end;

После запуска, коннекта, и нажатия на кнопку list на подчеркнутой строке появляется ошибка 'List index out of bounds (1)'.
Вроде код прост, да и проблема банальна, но не могу решить никак.
PS: Признаю, мало знаю TStrings.

[Stilet]

for v:=0 to listfiles.Count-1 do
 if v<ListBox.Items.Count then
  listbox.Items.Append(listfiles[v]);

А еще лучше: listbox.Items.AddStrings(listfiles) ; вместо цикла.

[cotseec]

что за объект с именем Ftp? возможно исключение возникает в методе List
также стоит взглянуть на listbox - там есть что-нибудь (листбокс чем-то заполнен)? ошибка также может возникать из-за того, что в листбоксе строки с индексом 1 нет (или он пустой или там всего одна строка, скорее всего одна строка)

[Peshka5]

Сообщение от Stilet

А еще лучше: listbox.Items.AddStrings(listfiles) ; вместо цикла.

Сейчас попробую.

[Peshka5]

Не подходит ни один из вариантов.
Получается:

Dir
msc
some file.exe

Хотя нужно:

Dir msc
some file.exe

[Stilet]

Хотя нужно:

Тогда вопрос: Почему так?

[Peshka5]

Всем спасибо. Проблему решил. Это было проще, чем я думал.
Обновленный код:

procedure TForm1.listClick(Sender: TObject);
var
files:tstringlist;
dirs:tstringlist;
v:integer;
begin
files:=tstringlist.create;
dirs:=tstringlist.create;
ftp.List(files,'',True);
for v:=0 to files.Count-1 do
if files[v][1]='d' then dirs.Add('/') else dirs.Add('');
files.Clear;
ftp.List(files,'',False);
for v:=0 to files.Count-1 do
listbox.Items.Add(dirs[v]+files[v]);
end;