Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

*.txt;*.doc;*.exe...   Найти похожие ветки 

← →
Groove_   (2002-12-16 11:44) [0]

Мастера, подскажите, как найти все файлы нужного формата и получить их имена в strings Например:
D:\My Doc\235.txt
D:\Windows\555.txt
и т.п.

---

← →
Calm   (2002-12-16 11:46) [1]

FindFirst(), FindNext

---

← →
Identifirator Borna   (2002-12-16 12:14) [2]

FindClose()

---

← →
Kudatsky   (2002-12-16 12:45) [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 13:52) [4]

>>Kudatsky (16.12.02 12:45)

А где strings ?

---

← →
Song   (2002-12-16 14:01) [5]

>>А где strings ?
Memo1.Lines

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.55 MB
Время: 0.038 c