![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#7
|
||||
|
||||
![]() Код:
var ASearchRec: TSearchRec; begin if FindFirst('c:\*.*', faAnyFile, ASearchRec)=0 then begin repeat if (ASearchRec.Attr and faDirectory)<>0 then Memo1.Lines.Add('['+ASearchRec.Name+']') else Memo2.Lines.Add(ASearchRec.Name); until FindNext(ASearchRec)<>0; FindClose(ASearchRec); end; end; Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 13.06.2012 в 09:41. |