| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вывести список файлов из папки, в имени которой есть побел [D6, Win95/98, WinXP]

Lola ©   (2004-11-17 12:58:00) 

или имя на кириллице. Т.е. когда полный маршрут к файлу указывается в комычках.
Пробовала присобачить ковычки в FindFirst, но тогда результат выдает ошибку с кодом 123.
Как в эту тривиальную процедуру приспособить эти нетривиальные, но так всеми юзерами любимые маршруты?

---

Lola   (2004-11-17 14:34:00) [1]

> Игорь Шевченко ©   (17.11.04 13:43) [2]

Нет-нет, Игорь, спасибо :) Процедура у меня уже есть, и давно все работает. Только вот сейчас понадобился маршрут с пробелом. А меня почему-то заклинило, что это надо самой процедуре менять. Глюк, одним словом!

---

Игорь Шевченко   (2004-11-17 13:43:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
 S: string;
 F: TSearchRec;
begin
 ListBox1.Items.Clear;
 S := 'C:\Program Files\*.*';
 if FindFirst (S, faAnyFile, F) <> 0 then
   RaiseLastWin32Error;
 try
   ListBox1.Items.Add (F.Name);
   while FindNext(F) = 0 do begin
     ListBox1.Items.Add(F.Name);
   end;
 finally
   FindClose(F);
 end;
end;


---

Lola   (2004-11-17 13:07:00) [3]

В принципе не надо уже :)) Главное в листинг список выводит. Там ковычки и проставлю.
Извините за беспокойство :)

---

Наверх