VPF::Отображение после поиска - Форум программистов

Михалыч

Дата 25.1.2010, 22:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

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

Код


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
____________

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Данкинг

Дата 25.1.2010, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Ну дык:

Код


...
if (SR.Name<>'.') and (SR.Name<>'..') then memo1.Lines.Add(SR.Name);
...

--------------------

There's nothing left but silent epitaphs.

chip_and_dayl

Дата 25.1.2010, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9

Код


Var SR:TSearchRec;
FindRes:Integer;
begin
memo1.Clear;
FindRes:=FindFirst(extractfilepath(Application.ExeName)+'*.*',faAnyFile,SR);
While FindRes=0 do
begin
if ((SR.Attr and faDirectory) = faDirectory) and
// он имеет название "." или "..", тогда:
((SR.Name = '.') or (SR.Name = '..')) then
begin
FindRes := FindNext(SR); // продолжить поиск
Continue; // продолжить цикл
end;
memo1.Lines.Add(SR.Name);

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

end;

Это сообщение отредактировал(а) chip_and_dayl - 25.1.2010, 23:16

--------------------

Фсё будет хорошо!!!

Михалыч

Дата 26.1.2010, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

Спасибо всем

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »