[r1x]

Всем Hi!

В общем одна ошибка (указана в теме)
Выявил где она возникает вот этот код на обозрение:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TDesktop.List(Path: string); var   lpBuf: PChar;   sWinDir: string[128];   SearchRec: TSearchRec;   begin   sListView1.Clear;   if not DirectoryExists(Path) then     begin     ShowMessage('Папка с тестами не найдена!');     exit;     end else   if FindFirst(Path + '*.rvb', faAnyFile, SearchRec) =0 then      begin           sListView1.Items.Add.Caption:=SearchRec.Name;           while (FindNext(SearchRec) = 0) do               sListView1.Items.Add.Caption:=(SearchRec.Name);      end;    sListView1.ItemIndex := 0; end;

Плиз помогите...

[Страдалецъ]

Код:

1	sListView1.Items.Add.Caption

И что вы пытаетесь вот этим сделать в цикле? Добавлять столбец для каждого фала?

[lmikle]

Нет, в этой строке все нормально.
Посмотри метод Add у TListView. Он возвращает собъект типа TListItem.
Так что такая конструкция вполне правомерна.

На какой строке останавливается дебаггер?

Меня больше смущают строки:

Код:

1	sListView1.Clear;

и

Код:

1	sListView.ItemIndex := 0;

Там, ИМХО, должно быть так:

Код:

1	sListView1.Items.Clear;

и

Код:

1	sListView.Selected := sListView.Items[0];

[r1x]

Все проблема решилась...
В общем ошибка возникала по одной тупой причине
В на конце пути надо указывать знак "/" (((((просто ужс...