Главная страница
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.014 c
1-47366
Freezer
2002-06-27 14:51
2002.07.15
Persistent.Assign???


3-47197
GrEG
2002-06-11 09:30
2002.07.15
Ограничение на длину индексируемого поля DBASE


1-47563
Still Swamp
2002-06-27 20:51
2002.07.15
Тон Фон и Картинка на формочке


1-47333
Ricks
2002-06-30 18:57
2002.07.15
Ресурсы: 32-битный Bitmap


1-47397
crosin
2002-07-02 12:37
2002.07.15
Проблема с копированием файлов.