| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
*.txt;*.doc;*.exe... [D6, WinXP]
Groove_ © (2002-12-16 11:44:00)Мастера, подскажите, как найти все файлы нужного формата и получить их имена в strings Например:
D:\My Doc\235.txt
D:\Windows\555.txt
и т.п.
Song (2002-12-16 14:01:00) [1]>>А где strings ?
Memo1.Lines
Identifirator Borna (2002-12-16 13:52:00) [2]>>Kudatsky (16.12.02 12:45)
А где strings?
Kudatsky (2002-12-16 12:45:00) [3]procedure TForm1.Button1Click(Sender: TObject);
Var
FB:TFileListBox;
begin
FB:=TFileListBox.Create(nil);
FB.Parent:=Self;
FB.Visible:=False;
FB.Directory:="D:\Baza10";
FB.Mask:="*.dbf";
Memo1.Lines.Assign(FB.Items);
FB.Free;
end;
Identifirator Borna (2002-12-16 12:14:00) [4]FindClose()
Calm (2002-12-16 11:46:00) [5]FindFirst(), FindNext
| |
