Господа!!! Помогите новичку, плз... [D5, Win95/98, WinME, Win2k, WinXP]
angelcom © (2002-07-01 03:17:00)
Необходимо после указания папки через openDlg создать файл
напр "File.lst" в котором содержался-бы список файлов по маске
"*.doc"
Буду очень признателен если кто-нибудь кинет примерчик
T'Mon (2002-07-01 04:19:00) [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"овские компоненты там все
реализовано, но лучше помучайся сам, поверь много интресного
узнаешь.
Наверх 
ЧАТ |
Орешник |
|
