[r1x]

Всем Hi!

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

Код:

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;

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

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

Код:

sListView1.Items.Add.Caption

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

[lmikle]

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

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

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

Код:

sListView1.Clear;

и

Код:

sListView.ItemIndex := 0;

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

Код:

sListView1.Items.Clear;

и

Код:

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

[r1x]

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