Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как считать имена файлов? [D5, Win2k]

Tadeush © (2002-01-23 15:43:00)
Есть куча однотипных файлов в определенной директории. Я их открываю с помощью компонента TOpenDialog. Компонент дает мне возможность пометить все файлы мышкой и открыть их. А как сделать что бы все файлы открывались не помечая их мышкой. Перечисление имен файлов не устраивает, т.к их кол-во может изменится.

Tadeush (2002-01-24 05:56:00) [1]
okv@kazna.ru

Tadeush (2002-01-24 05:55:00) [2]
скинь пожалуйста

Repeat Until (2002-01-23 20:00:00) [3]
A ksati skin esli ne slojno. Spasibo

yaJohn (2002-01-23 16:14:00) [4]
TBrowseDirectoryDlg
Davay milo, skinu source.

Tadeush (2002-01-23 16:06:00) [5]
Хе . Оно конечно я не поглядел внимательно. Но возникла другая фишка. Директория тоже может сменится. А ее как то нужно выбирать и надо это делать визуально.

Tadeush (2002-01-23 15:56:00) [6]
сенкс :)))))

panov (2002-01-23 15:55:00) [7]
>Tadeush (23.01.02 15:49>

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
Description

The Pathconstant parameter is the directory and file name mask, including wildcard characters. For example, "c:\test\*.*"specifies all files in the C:\TEST directory).

MBo (2002-01-23 15:54:00) [8]
вообще-то работает
var sr:tsearchrec;
begin
if FindFirst("e:\*.txt", faanyfile, sr) = 0 then
begin
memo1.lines.add(sr.name);
while FindNext(sr) = 0 do
begin
memo1.lines.add(sr.name);
end;
FindClose(sr);
end;

Tadeush (2002-01-23 15:49:00) [9]
Ну дык эти комманды заточены под имя файла. А имена все разные толко расширения одинаковые. А такая фишка как *.txt к примеру не работает.

MBo (2002-01-23 15:46:00) [10]
findfirst,findnext

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »