Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
ВнизПоиск фалов по маскам Найти похожие ветки
← →
Nord © (2004-04-25 17:03) [0]Нужно срочно решить такую проблему
Path3:= (form4.Edit4.Text+"/")+(("*.jpg") щк ("*.bmp") or("*.ico")or ("*.dib") or ("*.jmpg") or ("*.emf") or ("*.wmf"));
Attr:= faAnyFile;
FindFirst(Path3, Attr, F3);
if F3.Name <> "" then
begin
Form1.ListBox1.Items.Add(edit4.Text+"/"+F3.Name);
while FindNext(F3) = 0 do
Form1.ListBox1.Items.Add(edit4.Text+"/"+F3.Name);
end;
FindClose(F3);
Var
F3: TSearchRec;
Attr: integer;
Path3: string;
type
F3= record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
если искать только *.jpg, то всё работает, но нужно искать и по *.bmp и т.д. Если есть возможность помогите, сдавать нужно 26 апреля. Заранее благодарен.
← →
Nord © (2004-04-25 17:03) [0]Нужно срочно решить такую проблему
Path3:= (form4.Edit4.Text+"/")+(("*.jpg") щк ("*.bmp") or("*.ico")or ("*.dib") or ("*.jmpg") or ("*.emf") or ("*.wmf"));
Attr:= faAnyFile;
FindFirst(Path3, Attr, F3);
if F3.Name <> "" then
begin
Form1.ListBox1.Items.Add(edit4.Text+"/"+F3.Name);
while FindNext(F3) = 0 do
Form1.ListBox1.Items.Add(edit4.Text+"/"+F3.Name);
end;
FindClose(F3);
Var
F3: TSearchRec;
Attr: integer;
Path3: string;
type
F3= record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
если искать только *.jpg, то всё работает, но нужно искать и по *.bmp и т.д. Если есть возможность помогите, сдавать нужно 26 апреля. Заранее благодарен.
← →
panov © (2004-04-25 17:13) [1]http://delphibase.endimus.ru/?action=viewtopic&topic=fileops
← →
panov © (2004-04-25 17:13) [1]http://delphibase.endimus.ru/?action=viewtopic&topic=fileops
← →
Nord © (2004-04-25 17:23) [2]panov больщое тебе спасибо!
← →
Nord © (2004-04-25 17:23) [2]panov больщое тебе спасибо!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c