Поиск файлов - Общие вопросы Delphi

Михаил Юрьевич · 25.01.2010, 22:36

Ищу файлы в своей папке вот так:

PHP код:


			
Var SR:TSearchRec;
FindRes:Integer; 
begin
form1.memo2.Clear;
FindRes:=FindFirst(extractfilepath(Application.ExeName)+'*.*',faAnyFile,SR);

While FindRes=0 do 
begin
memo2.Lines.Add(SR.Name);

FindRes:=FindNext(SR); 
end;
FindClose(SR);

Все нормально ищет,а в memo вот такая строка получается,на верху
отображается точки,ни каких папок там нет,кроме этих трех файлов,
как убрать эти точки,в ListBox тоже самое
.
..
LcUnit.dcu
LcUnit.pas
LcUnit.~pas

Пепел Феникса · 25.01.2010, 22:43

точка это текущая папка.
две точки папка выше уровнем.
обрезается руками

profi · 25.01.2010, 22:54

Сделайте условие:

Код:

if (SR.Name <> '.') or (SR.Name <> '..') then memo2.Lines.Add(SR.Name);

Михаил Юрьевич · 25.01.2010, 22:58

Ах вот это что,спасибо !

25.01.2010, 22:36	#1
Михаил Юрьевич Форумчанин Регистрация: 25.12.2007 Сообщений: 661	Поиск файлов Ищу файлы в своей папке вот так: PHP код: `Var SR:TSearchRec; FindRes:Integer; begin form1.memo2.Clear; FindRes:=FindFirst(extractfilepath(Application.ExeName)+'.',faAnyFile,SR); While FindRes=0 do begin memo2.Lines.Add(SR.Name); FindRes:=FindNext(SR); end; FindClose(SR);` Все нормально ищет,а в memo вот такая строка получается,на верху отображается точки,ни каких папок там нет,кроме этих трех файлов, как убрать эти точки,в ListBox тоже самое . .. LcUnit.dcu LcUnit.pas LcUnit.~pas За частые поиски был забанен во всех известных поисковых системах!

25.01.2010, 22:43	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	точка это текущая папка. две точки папка выше уровнем. обрезается руками Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

25.01.2010, 22:54	#3
profi Участник клуба Подтвердите свой е-майл Регистрация: 19.11.2007 Сообщений: 1,022	Сделайте условие: Код: `if (SR.Name <> '.') or (SR.Name <> '..') then memo2.Lines.Add(SR.Name);`

25.01.2010, 22:58	#4
Михаил Юрьевич Форумчанин Регистрация: 25.12.2007 Сообщений: 661	Ах вот это что,спасибо ! За частые поиски был забанен во всех известных поисковых системах!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
С++. Поиск файлов	profi	Помощь студентам	2	16.06.2009 16:04
Поиск файлов	Ralf_ru	Общие вопросы Delphi	1	30.03.2009 15:42
Поиск файлов	LeoN	Общие вопросы Delphi	5	25.11.2007 22:54
поиск файлов	KORN	Компоненты Delphi	3	12.10.2007 05:42