Можно ли загрузить файл через путь в Richedit?

[svtvts]

Добрый день!
Имею в программе 2 RichEditа и FileListBox. Во втором RichEdite через FileListBox и регулярку получаю путь к обработанному файлу и строку из этого файла.

procedure TForm1.SpeedButtonClick(Sender: TObject);
  var
    i:integer;
    RegExpr: TRegExpr;
    begin
    for i:=0 to FileListBox1.Items.Count-1 do begin
    FileListBox1.ItemIndex:=i;
    // обработка файлов
    RichEdit1.Perform(EM_LIMITTEXT,{1000000} 10000000,0);
    RichEdit1.Lines.LoadFromFile(FileListBox1.Filename);
    RegExpr := TRegExpr.Create;
    RegExpr.Expression:=ComboBox1.Text;
     if RegExpr.Exec(RichEdit1.Text) then
  repeat
    RichEdit2.Lines.Add(FileListBox1.FileName);
    RichEdit2.Lines.Add((RegExpr.Match[0]));
    until not RegExpr.ExecNext;
    Application.ProcessMessages;
    end;
     RichEdit2.Lines.SaveToFile('F:/have_ing');
    end;

Во втором RichEdit выделяю строку через код:

procedure TForm1.RichEdit2Click(Sender: TObject);
var
   Line : integer;
begin
   with RichEdit2 do
   begin
     Line := Perform(EM_LINEFROMCHAR, SelStart, 0) ;
     SelStart := Perform(EM_LINEINDEX, Line, 0) ;
     SelLength := Length(Lines[Line]) ;
end;
end;

Можно ли загрузить в RichEdit1 файл через путь, указанный в RichEdit2, и указать местонахождения полученной строки в загруженном файле?

[p51x]

Можно. Путь к файлу это строка, в ричедите то же...

[Аватар]

А в ричэдит в цикле загружаются файлы для того, чтобы дольше работало? Или они в rtf-формате? TStringList для этого есть, если не rtf

[svtvts]

Спасибо за вопрос. Обрабатываются текстовые файлы. Мне нужно. чтобы я через добавленные в RichEdit2 строки мог в RichEdit1 загружать содержащие их файлы и в них смотреть, что было до строки, и что после. Я не уверен, что этого можно добиться через TStringList, опыта слишком мало.

[svtvts]

Если можете помочь, помогите. У меня практически нет опыта программирования. Может, еще подскажите, что можно использовать в моем случае вместо RichEdit2 для ускорения процесса. Пробовал использовать AdvRichEdit из TMS: работает он гораздо медленнее.

[svtvts]

Спасибо, разобрался. После приведенного кода нужно добавить строку:

RichEdit1.Lines.LoadFromFile(RichEd it2.Lines[Line]);

ScrollBars же нужно поставить в ssBoth.

[svtvts]

Через StringList действительно получается быстрее. Спасибо!