*.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 ?

>>А где strings ?
Memo1.Lines

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

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