Текущий архив: 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.01 c