24.03.2010, 11:56
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
function FindFirst(const Path: string; Attr: Integer;
var F: TSearchRec)
Объясление функции
простейшая программа поиска
PHP код:
var
F: TSearchRec;
Path: string;
Attr: Integer;
begin
{Искать все файлы в заданной директории с расширение .pas}
Path := 'c:\tp7\bin\*.pas';
{которые имеют атрибуты "Только для чтения" и "Архивный"}
Attr := faReadOnly + faArchive;
FindFirst(Path, Attr, F);
{Если хотя бы один файл найден, то продолжить поиск}
if F.name <> '' then
begin
ListBox1.Items.Add(Path,F.name); {Добавление в TListBox пути и имени найденного файла}
while FindNext(F) = 0 do
ListBox1.Items.Add(Path,F.name);
end;
FindClose(F);
end.
Последний раз редактировалось EndLeSSDre@M; 24.03.2010 в 12:02..
|
|
|