Как из каталога открывать все файлы по очереди

[Poltev86]

ПОДСКАЖИТЕ ПОЖАЛУЙСТА...есть папка в ней лежит 30 текстовых файлов...их нужно поочереди открывать..считывать и занасить в memo..как это можно сделать???

[Stilet]

Поиском по форуму на предмет FindNext или FileListBox

[W0LF]

procedure AllTXTtoMemo(Dir, Masc: string; Memo: TMemo);
var
  searchResult : TSearchRec;
  Buff: TStringList;
begin
  Memo.Clear;
  Buff := TStringList.Create;
  if Dir[Length(Dir)] <> '\' then
    Dir := Dir + '\';
  if Masc = '' then Masc := '*.*';
  if FindFirst(Dir + Masc, faAnyFile - faDirectory, searchResult) = 0 then
  begin
    repeat
      Buff.LoadFromFile(Dir + searchResult.Name);
      Memo.Lines.AddStrings(Buff);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
  Buff.Free;
end;

{*Пример использования*}

procedure TForm1.Button1Click(Sender: TObject);
begin
  AllTXTtoMemo('c:\', '*.txt', Memo1);
end;

[Poltev86]

Спасибо вроде сам разобрался...но вот появилась еще одна проблемка...как сделать так чтоб он по порядку загружал..ну например
1.txt
2.txt
3.txt
4.txt
5.txt
а у меня грузит в разброс...вот мой код

procedure TForm4.Button3Click(Sender: TObject);
var    i:integer;
       f:TStrings;
       s,s1:string;
       q: TSearchRec;
begin
       Label5.Visible:=true;
       Label6.Visible:=true;
       ProgressBar1.Position:=0;
       f:= TStringList.Create();
       if FindFirst('D:\Konvert\*.txt',faAnyFile - faDirectory,q)=0 then
       begin

          repeat
             Label5.Caption:=q.Name;
             f.LoadFromFile('D:\Konvert\'+q.Name);
            begin
             for I := 0 to f.Count - 1 do
              begin
               DataModule3.ADOTable2.Insert;
               if pos('п/дела',f.Strings[i])<>0  then
                 begin
                  DataModule3.ADOTable2.FieldByName('NPD').AsString:=copy(f.Strings[i],pos('п/дела',f.Strings[i])+7,Length('п/дела'));;
                  DataModule3.ADOTable2.Post;
                 end;
                Application.ProcessMessages;
                ProgressBar1.Position:=i*100 div f.Count+1 ;
             end;
          end;
          until  FindNext(q) <> 0;
          f.Free;
          FindClose(q);
          Label5.Visible:=false;
          Label6.Visible:=false;
          ShowMessage('Выгрузка оконченна! Спасибо за внимание!!!');
          ProgressBar1.Position:=0;
          end;