как загрузить в ListBox несколько текстовых файлов?

[One.Love]

Люди подскажите пожалуйста как в ListBox загрузить через OpenDialog несколько текстовых файлов? Чтобы потом было легче осуществить поиск?

[mihali4]

Самое простое:
1. Грузим тексты в другой ListBox2
2. Добавляем в наш ListBox -> ListBox1.Items.AddStrings(ListBox2. Items);

[One.Love]

Самое простое:
1. Грузим тексты в другой ListBox2
2. Добавляем в наш ListBox -> ListBox1.Items.AddStrings(ListBox2. Items);

Это понятно, мне нужно чтобы я в одном и том же лист боксе открыл кучу разных файлов за один раз

[Stilet]

Ну это придется переопределять ListBox или делать свою процедуру загрузки. А чем собсно вариант Михалыча не катит?

[Domovoy]

Вот держи

procedure TForm1.Button1Click(Sender: TObject);
var
  open:TOpenDialog;
  i:integer;
  List:TStringList;
begin
  open:=TOpenDialog.Create(nil);
  List:=TStringList.Create;
  open.Options:=open.Options+[ofAllowMultiSelect];
  try
    if open.Execute then
    begin
      for i:=0 to open.Files.Count-1 do
      begin
        list.LoadFromFile(open.Files.Strings[i]);
        ListBox1.Items.AddStrings(list);
      end;
    end;
  finally
    open.Free;
    List.Free;
  end;
end;

[mihali4]

мне нужно чтобы я в одном и том же лист боксе открыл кучу разных файлов за один раз

Так надо сначала продумать свой вопрос и поставить его правильно...
Ведь в первозданном виде он звучал так:

как в ListBox загрузить через OpenDialog несколько текстовых файлов

А вы теперь - как капризная мадам: "Нет, мне надо с рюшечками..."