Текущий архив: 2004.12.05;
Скачать: CL | DM;
Вниз
Вывести список файлов из папки, в имени которой есть побел Найти похожие ветки
← →
Lola © (2004-11-17 12:58) [0]или имя на кириллице. Т.е. когда полный маршрут к файлу указывается в комычках.
Пробовала присобачить ковычки в FindFirst, но тогда результат выдает ошибку с кодом 123.
Как в эту тривиальную процедуру приспособить эти нетривиальные, но так всеми юзерами любимые маршруты?
← →
Lola © (2004-11-17 13:07) [1]В принципе не надо уже :)) Главное в листинг список выводит. Там ковычки и проставлю.
Извините за беспокойство :)
← →
Игорь Шевченко © (2004-11-17 13:43) [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 14:34) [3]
> Игорь Шевченко © (17.11.04 13:43) [2]
Нет-нет, Игорь, спасибо :) Процедура у меня уже есть, и давно все работает. Только вот сейчас понадобился маршрут с пробелом. А меня почему-то заклинило, что это надо самой процедуре менять. Глюк, одним словом!
Страницы: 1 вся ветка
Текущий архив: 2004.12.05;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
