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




Вниз

Как считать имена файлов? 


Tadeush   (2002-01-23 15:43) [0]

Есть куча однотипных файлов в определенной директории. Я их открываю с помощью компонента TOpenDialog. Компонент дает мне возможность пометить все файлы мышкой и открыть их. А как сделать что бы все файлы открывались не помечая их мышкой. Перечисление имен файлов не устраивает, т.к их кол-во может изменится.



MBo   (2002-01-23 15:46) [1]

findfirst,findnext



Tadeush   (2002-01-23 15:49) [2]

Ну дык эти комманды заточены под имя файла. А имена все разные толко расширения одинаковые. А такая фишка как *.txt к примеру не работает.



MBo   (2002-01-23 15:54) [3]

вообще-то работает
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;



panov   (2002-01-23 15:55) [4]

>Tadeush (23.01.02 15:49>

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

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



Tadeush   (2002-01-23 15:56) [5]

сенкс :)))))



Tadeush   (2002-01-23 16:06) [6]

Хе . Оно конечно я не поглядел внимательно. Но возникла другая фишка. Директория тоже может сменится. А ее как то нужно выбирать и надо это делать визуально.



yaJohn   (2002-01-23 16:14) [7]

TBrowseDirectoryDlg
Davay milo, skinu source.



Repeat Until   (2002-01-23 20:00) [8]

A ksati skin esli ne slojno. Spasibo



Tadeush   (2002-01-24 05:55) [9]

скинь пожалуйста



Tadeush   (2002-01-24 05:56) [10]

okv@kazna.ru




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




Наверх





Память: 0.72 MB
Время: 0.024 c
14-18958          fag2000@ok.ru         2001-12-17 14:57  2002.02.07  
Установка MS-SQL Server


3-18747           Dim                   2002-01-11 09:22  2002.02.07  
Значение параметра по умолчанию в InterBase e.


14-18951          paul_shmakov          2001-12-17 16:28  2002.02.07  
сортировка по датам в поиске


1-18860           Анонимщик             2002-01-21 12:01  2002.02.07  
Один дюйм - это точно 2,54 сантиметра или нет?


4-19024           Art                   2001-12-10 15:54  2002.02.07  
А как получить полный список запущенных в системе задач???