Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Господа!!! Помогите новичку, плз...   Найти похожие ветки 

 
angelcom   (2002-07-01 03:17) [0]

Необходимо после указания папки через openDlg создать файл напр "File.lst" в котором содержался-бы список файлов по маске "*.doc"
Буду очень признателен если кто-нибудь кинет примерчик


 
T'Mon   (2002-07-01 04:19) [1]

procedure TForm1.Button1Click(Sender: TObject);
var SR: TSearchRec;
Found: Boolean;
TF: TextFile;
begin
if OpenDialog1.Execute then
begin
AssignFile(TF, "File.lst");
Rewrite(TF);
Found := FindFirst(IncludeTrailingBackslash(ExtractFileDir(OpenDialog1.FileName)) + "*.doc", faAnyFile, SR) = 0;
while Found do
begin
WriteLn(TF, SR.Name);
Found := FindNext(SR) = 0;
end;
CloseFile(TF);
end;
end;


Вообще TOpenDialog выбирает файл, а не директорию.
Чтобы выбрать директорию используй API"шную функцию SHBrowseForFolder. Можешь взять RX"овские компоненты там все реализовано, но лучше помучайся сам, поверь много интресного узнаешь.



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

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.038 c
6-47657
BAHO
2002-05-04 04:55
2002.07.15
Indy Help...


3-47174
Egor_M
2002-06-18 13:04
2002.07.15
Цветная DBGrid


1-47597
sector
2002-06-28 19:29
2002.07.15
Обработка ошибок(исключительных ситуаций)


4-47902
whc
2002-05-15 17:45
2002.07.15
Соответствие пароля и логина в NT


14-47682
MJH
2002-06-17 09:55
2002.07.15
Кто-то что-то хотел сделать да никак не решили чего!?