VPF::Поиск не работает! - Форум программистов

Diab10

Дата 28.8.2007, 16:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Код



var
  F: TSearchRec;
.................................
FindFirst('Bin\Models\*.3ds', 0, F);
While FindNext(f)=0 do
Begin
FindNext(f)  ;
ListBox1.AddItem(f.Name,ListBox1);
end;

Я у себя в проге поставил этот код на кнопку(событие онклик). При нажатии на кнопку, программа должна вывести в компоненте ListBox1 все файлы с расширением .3ds из папки моделс. Их там около 40. А находит всего штук 20. Кто знает почему??

Snowy

Дата 28.8.2007, 17:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Потому что у тебя 2 FindNext.
А результаты ты берёшь только у второго.
И вообще FindNext должен стоять в Until, а не в while.

Serebrus

Дата 28.8.2007, 17:22 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 333
Регистрация: 22.5.2007
Где: Ташкент

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

Diab10, попробуй этот код:

Цитата

procedure ShowItems(RT: String);//RT-put k faylam
var SR:TSearchRec;
begin
if Rt[length(Rt)]<>'\' then Rt:=Rt+'\';
if FindFirst(Rt+'*.3ds',faAnyFile,SR)=0 then
repeat
if (SR.Name<>'.')and(SR.Name<>'..') then
ListBox1.Items.Add(SR.Name);
until FindNext(SR)<>0;
FindClose(SR);
end;

Вызывается так:

Цитата

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowItems('Bin\Models');
end;

pseud

Дата 28.8.2007, 17:23 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

а вот так

Код


var
  F: TSearchRec;
.................................
FindFirst('Bin\Models\*.3ds', 0, F);
While FindNext(f)=0 do
Begin
//FindNext(f)  ;
ListBox1.AddItem(f.Name,ListBox1);
end;

нет сам вижу что один файл так потеряешь
надо как посоветовал Snowy

Код


  if FindFirst('Bin\Models\*.3ds', 0, F) = 0 then
    repeat
      ListBox1.AddItem(f.Name,ListBox1);
    until FindNext(f) <> 0;

Это сообщение отредактировал(а) pseud - 28.8.2007, 17:28

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Diab10

Дата 29.8.2007, 06:30 (ссылка)

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

Загрузка ...

Новичок

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

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

СПС всем! щас буду пробывать.
P.S. Я то знал, что у меня первый файл теряется, это пофиг, а вот то, што половина файлов потерялись- это уже проблема=(

aktuba

Дата 29.8.2007, 07:21 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Цитата

Я то знал, что у меня первый файл теряется, это пофиг, а вот то, што половина файлов потерялись- это уже проблема=(

У тебя ничего не терялось. Просто когда что-то делаешь - представляй, как это работает. А для этого надо доки к функциям читать...

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

Diab10

Дата 29.8.2007, 07:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(pseud @ 28.8.2007, 17:23

)

Snowy
  if FindFirst('Bin\Models\*.3ds', 0, F) = 0 then
    repeat
      ListBox1.AddItem(f.Name,ListBox1);
    until FindNext(f) <> 0;

Сделал этим способом- всё получилось, спс

SergeBS

Дата 29.8.2007, 08:10 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

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

2All: любите вы все усложнять smile

Код


s:= 'c:\windows\*.ini';
ListBox1.Perform(LB_DIR,0,Integer(s));  //  получим список всех файлов *.ini

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