Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Оброботка большого текста

Автор: Ak47black 30.10.2006, 19:26

Делаю процедуру которая обрабатывает большой текст (тоесть свыше миллиона символов) обратываю текст по букве в сокрашенном виде это выглядит примерно вот так

Код


***
  i: Integer;
  Str: String;
***
*** 
  i:= 1;
  repeat
    Str:= Str+Memo1.Text[i];
  until i>Length(Memo1.Text);
***

Так как кажды раз Str нарашеваеться то сам процес занимает кучю времени.
Как мне оптимизировать?

Автор: Matematik 30.10.2006, 19:30

Цитата(Ak47black @ 30.10.2006, 20:26

)

сокрашенном виде это выглядит примерно вот так

примерно так в сокрашеном виде

Код


  zzz := Memo1.Text; //***
  SetLength(Str, Length(zzz)); //***
  i:= 1;
  repeat
    Str:= Str+zzz[i]; //***
  until i>Length(zzz);

Автор: Ak47black 30.10.2006, 19:33

В чём разница ? Какой тип zzz ???

Автор: Matematik 30.10.2006, 19:43

извени, вру

Код


  zzz := Memo1.Text;
  SetLength(Str, Length(zzz));
  i:= 1;
  k := 1;
  repeat
    Str[k] := zzz[i];
    Inc(k);
  until i>k;

приводи нормальный код а не херню
вобщем случае пямять надо выделять заранее, т.к. s:=s+'1' приводит к постоянному выделению памяти для новой строки

Добавлено @ 19:46
И Memo1.Text не переменная, частый вызов замедляет.

Автор: Ak47black 30.10.2006, 19:47

А если например заранье неизвестен размер то как?
Каждый раз увеличивать ?

Автор: Matematik 30.10.2006, 19:50

Цитата(Ak47black @ 30.10.2006, 20:47

)

А если например заранье неизвестен размер то как?
Каждый раз увеличивать ?

Выделять максимальное колво или выделять память кусками >1 байта

Автор: Ak47black 30.10.2006, 19:52

Может какие-нибудь похожие примеры есть гденибуть? Очень интересно посмотреть.

Автор: Ak47black 30.10.2006, 20:42

Matematik. При

Код


zzz := Memo1.Text;

Получилось намного быстее.
Спасибо. +

Автор: imageman 30.10.2006, 20:55

Код


 zzz := Memo1.Text; 
  SetLength(Str, Length(zzz)); //Ставим длину строки 
  i:= 1;
  repeat
    Str[i]:= zzz[i]; //меняем один(!) байт (не делаем инкремент длины строки)
    inc(i);
  until i>Length(zzz);

такой код должен быть ещё быстрее

Автор: Snowy 30.10.2006, 21:49

Memo1.Text - это не строка, а функция.
Ясен перец быстрее, если сначала её получить, а потом с ней работать.