Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Оброботка большого текста 
V
    Опции темы
Ak47black
Дата 30.10.2006, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

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

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

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

Это сообщение отредактировал(а) Ak47black - 30.10.2006, 19:30
PM MAIL   Вверх
Matematik
Дата 30.10.2006, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50
Цитата(Ak47black @  30.10.2006,  20:26 Найти цитируемый пост)
сокрашенном виде это выглядит примерно вот так

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

  zzz := Memo1.Text; //***
  SetLength(Str, Length(zzz)); //***
  i:= 1;
  repeat
    Str:= Str+zzz[i]; //***
  until i>Length(zzz);
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 30.10.2006, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
В чём разница ? Какой тип zzz ???

Это сообщение отредактировал(а) Ak47black - 30.10.2006, 19:35
PM MAIL   Вверх
Matematik
Дата 30.10.2006, 19:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50
извени, вру
Код

  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 не переменная, частый вызов замедляет.
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 30.10.2006, 19:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
А если например заранье неизвестен размер то как?
Каждый раз увеличивать ?
PM MAIL   Вверх
Matematik
Дата 30.10.2006, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50
Цитата(Ak47black @  30.10.2006,  20:47 Найти цитируемый пост)
А если например заранье неизвестен размер то как?
Каждый раз увеличивать ? 

Выделять максимальное колво или выделять память кусками >1 байта
PM MAIL WWW ICQ   Вверх
Ak47black
Дата 30.10.2006, 19:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
Может какие-нибудь похожие примеры есть гденибуть? Очень интересно посмотреть.
PM MAIL   Вверх
Ak47black
Дата 30.10.2006, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0
Matematik. При 
Код

zzz := Memo1.Text;

Получилось намного быстее.
Спасибо. +
PM MAIL   Вверх
imageman
Дата 30.10.2006, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.9.2004

Репутация: 1
Всего: 1
Код

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


такой код должен быть ещё быстрее
PM MAIL   Вверх
Snowy
Дата 30.10.2006, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Memo1.Text - это не строка, а функция.
Ясен перец быстрее, если сначала её получить, а потом с ней работать.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0820 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.