Как быстро читать из Мемо?

[russian-stalker]

Быстрее работать со Stringlist, а потом результат кинуть в Memo. Проверенно!
И результат при больших объемах в сотни, а то и тысячи больше.

[Пепел Феникса]

причина в том что мемо обновляет данные а это долго.

[mutabor]

Сообщение от Alex Cones

И попробуйте сотворить те же операции над TStringList, мне, например, тоже интересно, будет ли ощутимая разница.

Memo.Lines и StringList.Strings это одно и то же

Быстрее работать со Stringlist, а потом результат кинуть в Memo. Проверенно!
И результат при больших объемах в сотни, а то и тысячи больше.

Об этом речь не идет, читайте внимательно вопрос. Нужно читать из Мемо.

[Utkin]

Сообщение от Alex Cones

Для парсера команд? Я б не стал держать это все в визуализации, а поступал как с канвой - в памяти соорудил тескт и одним большим движением закинул его в MEMO

В том то и дело, он закинут в Мемо, а перед стартом происходит распихивание проги на логические блоки. Для 60 строк программы задержка составляет до 5 секунд. Конечно дело не в Мемо, но хотелось бы рассмотреть все варианты для скорости.

Да. Там тратися много ресурсов на распознование текста.

[Stilet]

и ещё занимается отрисовкой..

Вот именно поэтому я в свое время от него отказался.
Загружаю 10Мбайтный файл в TStringList (менее секунды) и уже самостоятельно отрисовываю на канве только те элементы которые должны быть видимы.

будет ли ощутимая разница.

Еще как будет - из-за отрисовки.

Там тратися много ресурсов на распознование текста.

В отдельный поток их пихни. И перед запуском потока из Мемо все в String выдерни.

[Utkin]

Ну так, немного подробностей в целях уточнения ситуации. Имеется программа на диске, она загружается в Мемо (пока что туда), а оттуда я забираю ее строки и распихиваю их по блокам (которые тут же и создаются из этой же программы). Процесс получения строк и их распихивания неразрывно связаны в одном цикле. Соответственно чем больше строк, тем дольше процесс.

Пробовал так:

procedure TValentina.ScanFag           (Source: TStrings; var Errs: TStringList);
var
      Dlina, i, Id: Integer;
      Stroka2, Stroka, Stroka3: String;
      fr: TStringList;
      z: TStrings;
begin


      Errs.Clear;
      fr:=TStringList.Create;
      z:=TStrings.Create;


      z.Text:=Source.Text;
      ...

AbstractError

Пробовал так:

z.Assign(Source);

Эффект тот же .

[Stilet]

А...м.м.м.
Не луче ли будет читать поблочно файл через ReadFile в некую строку, ее анализировать, распихивать, подчитывать остальное и т.д. до конца?
Или через TFileStream - это в твоем случае помоему лучший вариант.

[Utkin]

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

А...м.м.м.
Не луче ли будет читать поблочно файл через ReadFile в некую строку, ее анализировать, распихивать, подчитывать остальное и т.д. до конца?
Или через TFileStream - это в твоем случае помоему лучший вариант.

Дык это редактор кода (в смысле его жалкое подобие). Может я хочу сначала прогу дописать или править в ней чего? Проблема в том, что заранее неизвестно буду я изменять текст или нет.
Или предлагаете сначала грузить текст в интерпретатор, а оттуда в редактор? Но проблема редактирования все равно остается.

[Пепел Феникса]

      z: TStrings;

замени на TStringList
TStrings абстрактный класс

[Utkin]

Помогло в данном случае . Но не помогло в целом. Общее время выполнения функции не изменилось . Заодно и выяснили что время на обновление Мемо не сильно влияет на скорость его работы.