|
#1
|
|||
|
|||
Чтение из txt
Доброго времени суток!
Столкнулся с такой вот проблемой! Есть код, который выводит список текстовых файлов определённой папки в ListBox: Код:
Procedure ScanDir(StartDir: String; Mask:string; List:TStrings); Var SearchRec : TSearchRec; Begin IF Mask ='' then Mask:= '*.txt*'; IF StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\'; IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then Begin Repeat Application.ProcessMessages; IF (SearchRec.Attr and faDirectory) <> faDirectory then List.Add(SearchRec.Name) else IF (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then Begin List.Add(StartDir + SearchRec.Name + '\'); ScanDir(StartDir + SearchRec.Name + '\',Mask,List); End; Until FindNext(SearchRec) <> 0; FindClose(SearchRec); End; end; procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Clear; ScanDir(ExtractFilePath(ParamStr(0)),'',ListBox1.Items); Label1.Caption := IntToStr(ListBox1.Items.Count); end; Что необходимо сделать, чтобы вывести содержимое текстового файла (например, в RichEdit), который выделен в ListBox? Заранее благодарен! |