|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Загрузка текст. файлов в memo...
Как сделать чтоб из выбранной папки загружалось содержимое всех ее файлов в memo?
|
#2
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); procedure AddTextFileToMemo(FN: String); var F: TStringList; begin F:=TStringList.Create; F.LoadFromFile(FN); Memo1.Lines.Add(FN); Memo1.Lines.AddStrings(F); Memo1.Lines.Add('---'); F.Free; end; var SR: TSearchRec; begin Memo1.Clear; if not DirectoryExists(Edit1.Text) then Exit; if FindFirst(Edit1.Text + '*.txt', faAnyFile, SR) = 0 then begin AddTextFileToMemo(Edit1.Text + SR.Name); while FindNext(SR) = 0 do if SR.Attr and faDirectory <> faDirectory then AddTextFileToMemo(Edit1.Text + SR.Name) end; FindClose(SR); end; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. Последний раз редактировалось The Shadow, 28.03.2008 в 08:14. |