Всем 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;
Плиз помогите...