|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Access violation at address...
Всем 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; [ iNewStar.Ru ] - Продам! Вопросы в ПМ |
#2
|
||||
|
||||
Код:
sListView1.Items.Add.Caption Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
|||
|
|||
Нет, в этой строке все нормально.
Посмотри метод Add у TListView. Он возвращает собъект типа TListItem. Так что такая конструкция вполне правомерна. На какой строке останавливается дебаггер? Меня больше смущают строки: Код:
sListView1.Clear; и Код:
sListView.ItemIndex := 0; Там, ИМХО, должно быть так: Код:
sListView1.Items.Clear; и Код:
sListView.Selected := sListView.Items[0]; |
#4
|
||||
|
||||
Все проблема решилась...
В общем ошибка возникала по одной тупой причине В на конце пути надо указывать знак "/" (((((просто ужс... [ iNewStar.Ru ] - Продам! Вопросы в ПМ |