Как загрузить в Memo 20+ текстовых файлов?

[ZverBlin]

Как загрузить в Memo сразу несколько десятков текстовых файлов которые в папке с программой?

[Аватар]

В цикле каждый файл читать в StringList и Memo.Lines.Text:=Memo.Lines.Text+St ringList.Text

[AlexKhol]

можно назвать файлы,например 1.txt,2.txt....и тд. И с помощью 2-х циклов ,1-й будет для названий файлов,а второй будет до тех пор пока файл не дошел до конца.
var a:string;
i:integer;
T:TextFile;
for i:=1 to 20 do begin
AssignFile(T,Inttostr(i)+'.txt');
Reset(T);
While not SeekEof(T) do begin
readln(T,a);
Memo1.Lines.Add(a);


end;
CLoseFile(T);
end;

[ZverBlin]

все файлы названы по разному
и просто при нажатии на кнопочку надо из них всех всё в Memo показать

[AlexKhol]

Сообщение от ZverBlin

все файлы названы по разному
и просто при нажатии на кнопочку надо из них всех всё в Memo показать

Тогда делайте поиск с помощью FindNext.С маской *.txt,и записывайте пути файлов в LIstBox например.

[evg_m]

openDialog Options ofAllowMultiSelect =True

r:=TstringList.Cretae;
for j:=0 to opendialog.Files.Count-1 do begin
  r.LoadFromfile(opendialog.files.strings[j]);
  memo.lines.add(r);
end;
r.Free;

[AlexKhol]

procedure GetAllFiles1(mask: string;List:TLIstBox);
var
  search: TSearchRec;
  directory: string;
  i,n,j:integer;

begin
    n:=0;
  directory := ExtractFilePath(mask);

  // find all files

  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
      // add the files to the listbox

form18.ListBox1.Items.Add(directory + search.Name);

    until FindNext(search) <> 0;
  end;

  // Subdirectories/ Unterverzeichnisse
  if FindFirst(directory + '*.*', faDirectory, search) = 0 then
  begin
    repeat
      if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
 GetAllFiles1(directory + search.Name + '\' + ExtractFileName(mask),list);
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;

procedure TForm18.Button1Click(Sender: TObject);
var
directory,mask:string ;
begin
  directory := ExtractFilePath  (Application.ExeName);
  mask :='*.txt';
  GetAllFiles1(directory+mask,Listbox1);
end;

procedure TForm18.Button2Click(Sender: TObject);
var
T:TextFile;
a:string;
i,j:integer;
   begin
for i:=1 to Listbox1.Items.Count do begin
AssignFile(T,Listbox1.Items[i-1]);
Reset(T);
While not SeekEof(T) do begin
readln(T,a);
Memo1.Lines.Add(a);


end;
CLoseFile(T);
end;
end;

Новая папка.rar

[ZverBlin]

Сообщение от evg_m

openDialog Options ofAllowMultiSelect =True

r:=TstringList.Cretae;
for j:=0 to opendialog.Files.Count-1 do begin
  r.LoadFromfile(opendialog.files.strings[j]);
  memo.lines.add(r);
end;
r.Free;

можно написать с переменными
var ..... ?

[ZverBlin]

Сообщение от AlexKhol

procedure GetAllFiles1(mask: string;List:TLIstBox);
var
  search: TSearchRec;
  directory: string;
  i,n,j:integer;

begin
    n:=0;
  directory := ExtractFilePath(mask);

  // find all files

  if FindFirst(mask, $23, search) = 0 then
  begin
    repeat
      // add the files to the listbox

form18.ListBox1.Items.Add(directory + search.Name);

    until FindNext(search) <> 0;
  end;

  // Subdirectories/ Unterverzeichnisse
  if FindFirst(directory + '*.*', faDirectory, search) = 0 then
  begin
    repeat
      if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
 GetAllFiles1(directory + search.Name + '\' + ExtractFileName(mask),list);
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;

procedure TForm18.Button1Click(Sender: TObject);
var
directory,mask:string ;
begin
  directory := ExtractFilePath  (Application.ExeName);
  mask :='*.txt';
  GetAllFiles1(directory+mask,Listbox1);
end;

procedure TForm18.Button2Click(Sender: TObject);
var
T:TextFile;
a:string;
i,j:integer;
   begin
for i:=1 to Listbox1.Items.Count do begin
AssignFile(T,Listbox1.Items[i-1]);
Reset(T);
While not SeekEof(T) do begin
readln(T,a);
Memo1.Lines.Add(a);


end;
CLoseFile(T);
end;
end;

Вложение 48673

ругается на [Error] Project9.dpr(11): Undeclared identifier: 'MainFormOnTaskbar'

[evg_m]

можно написать с переменными
var ..... ?

var
  r: TStringList;
  j: integer;

на форме компоненты TOpendialog (вкладка Dialog) c именем Opendialog
Tmemo (вкладка standart) c именем Memo
если имена другие, то соответвенно надо менять эти имена.

все это должно быть после вызова вызова диалога

if Opendialog.execute then begin
 ....// здесь код заполнения
end;