Не могу найти простейший исходник разделяющий текст

[Jleksern]

Обалдеть. Провел как скорость изменилась и на сколько отличается между старой версией и новой.

Если первый использовать код у меня текст загрузился в программу за 1 минуту 25 секунд.

Использовал Ваш код - ужас, Я был шокирован.... загрузилось за 7 секунд тот же текстовый файл весом почти 3 мегабайта.

Также проверил на практике старую идею с listbox только с Вашим кодом - но разницы не заметил.

Можете пожалуйста описать как Вы так сделали? Я сравнил код и понял то раньше содержимое текстового файла загружалось сразу в программу и в компонент memo, а сейчас оно загружается в память компьютера (в переменную) и от туда в memo так? и исходя из этого так повысилась скорость?
Чувствую сегодня опять будет бессонная ночь ))

А кстати, а ещё есть способы увеличить скорость загрузки?
просто у меня некоторые текстовые файлы по 50 мб - по 200 мб весят)

[Serge_Bliznykov]

Можете пожалуйста описать как Вы так сделали? Я сравнил код и понял то раньше содержимое текстового файла загружалось сразу в программу и в компонент memo, а сейчас оно загружается в память компьютера (в переменную) и от туда в memo так? и исходя из этого так повысилась скорость?

именно так.
Запомните - "визуальные компоненты" и "скорость" - понятия несовместимые. Раньше в цикле добавлялась одна строчка, мемо отрабатывало добавление строки, перерисовывало отображение, включала при необходимости скролбары и т.д. и т.п.
а если использовать вместо этого невизуальные компоненты (или даже обычную строчку взять и там накапливать результат), то скорость возрастает многократнейше!!!

А кстати, а ещё есть способы увеличить скорость загрузки?
просто у меня некоторые текстовые файлы по 50 мб - по 200 мб весят)

ну откажитесь от отбражения подобных гигантских текстов на форме. вот скорость и повысится. Это же огромные массивы. Человек их даже просмотреть не сможет, не то, чтобы обработать. А раз не сможет, то для кого они на форме нужны? Для инопланетян? Мутантов-гениев?!
впрочем, это уже лучше вам решать, для чего Вы хотите отобразить пару десятков миллионов строк на форме...

[Jleksern]

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

о! так Вы за скоростью гонетесь?!
тогда попробуйте такой код:

procedure TForm1.Button1Click(Sender: TObject);
var 
  ts, ts1, ts2 : TStringList;
  i, k, CountRec : integer;
  s : string;
  a: integer;
begin
  if OpenDialog1.Execute then begin
     ts := TStringList.Create;
     ts1 := TStringList.Create;
     ts2 := TStringList.Create;
     CountRec := 0;
     ts.LoadFromFile(OpenDialog1.FileName);
     for i:=0 to ts.Count-1 do  begin
        s := ts.Strings[i];
        k := Pos(edit1.Text, s);
        if k >1 then begin
           ts1.Append(Copy(s, 1, k-1));
           ts2.Append(Copy(s,k+1, Length(s)-k ));
           inc(CountRec)
        end;
     end;
     ts.Free;
     Memo1.Lines.Text := ts1.Text;
     Memo2.Lines.Text := ts2.Text;
     ts1.Free;
     ts2.Free;
     label5.Caption:=IntToStr(CountRec);
  end;
end;

если хочется использовать ListBox,
тогда замените строчки
Memo1.Lines.Text := ts1.Text;
Memo2.Lines.Text := ts2.Text;
на

     ListBox1.Items.Text := ts1.Text;
     ListBox2.Items.Text := ts2.Text;

никак не получается сделать так чтоб с использованием этого кода мог открывать ещё и к примеру 1.txt и 2.txt и 3.txt за раз.


А получается если выделить эти три текстовых файла, открывается лишь один, а не все вместе в memo....

[Serge_Bliznykov]

procedure TForm3.Button1Click(Sender: TObject);
var 
  ts, ts1, ts2 : TStringList;
  fIndex, i, k, CountRec : integer;
  s : string;
begin
  if OpenDialog1.Execute then begin

     ts := TStringList.Create;
     ts1 := TStringList.Create;
     ts2 := TStringList.Create;
     CountRec := 0;

     for fIndex := 0 to OpenDialog1.Files.Count -1 do begin
         ts.LoadFromFile(OpenDialog1.Files[fIndex]);
         for i:=0 to ts.Count-1 do  begin
            s := ts.Strings[i];
            k := Pos(edit1.Text, s);
            if k >1 then begin
              ts1.Append(Copy(s, 1, k-1));
              ts2.Append(Copy(s,k+1, Length(s)-k ));
              inc(CountRec)
            end;
         end;
     end;
     ts.Free;
     Memo1.Lines.Text := ts1.Text;
     Memo2.Lines.Text := ts2.Text;
     ts1.Free;
     ts2.Free;
     label5.Caption:=IntToStr(CountRec);
  end;
end;