Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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



Страницы: 1 вся ветка

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

Наверх





Память: 0.46 MB
Время: 0.005 c
1-18848
Eraser
2002-01-21 15:38
2002.02.07
Погибаю в пучине потоков (уже давно)


3-18779
nikols
2002-01-09 10:49
2002.02.07
Вызов хранимой процедуры из пакета Oracle через BDE


3-18728
Akhmadey
2002-01-10 07:58
2002.02.07
Где скачать бы, а?


14-18979
phantom2040
2001-12-18 13:32
2002.02.07
CGI программа на Delphi под Unix


3-18708
13-ый
2002-01-09 23:43
2002.02.07
Подскажите хорошую книжку по Oracle !





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский