ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Обновление TMemo
15 сообщений из 15, страница 1 из 1
Обновление TMemo
    #40002165
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Есть такой код
Код: pascal
1.
2.
3.
4.
for i := 0 to 1000000 do begin
  DoProcess();
  Memo1.Lines.Add(IntToStr(i));
end;

Вопрос, как обеспечить обновление и скроллирование на последнюю запись Memo в процессе выполнения цикла без вызова Application.ProcessMessages;

С уважением, Vasilisk
...
Рейтинг: 0 / 0
24.09.2020, 15:01
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002168
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
_Vasilisk_,

Код: pascal
1.
memo1.Update;
...
Рейтинг: 0 / 0
24.09.2020, 15:06
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002171
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
_Vasilisk_
Есть такой код

Чего-бы его не вынести в другой поток?
...
Рейтинг: 0 / 0
24.09.2020, 15:09
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002172
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMaster
Участник
_Vasilisk_,

...и выводить не каждый шаг, а каждый n-й (100-й, 1000-й....)
...
Рейтинг: 0 / 0
24.09.2020, 15:10
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002181
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Insert вверх списка, и не нужно скроллировать
...
Рейтинг: 0 / 0
24.09.2020, 15:27
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002220
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Этот топик нужно приводить в пример, когда в след. раз
речь зайдёт про русскоязычный VS буржуйский форумы.
...
Рейтинг: 0 / 0
24.09.2020, 16:39
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002226
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
Гаджимурадов Рустам,

На буржуйских нынче похожая шляпа творится.
...
Рейтинг: 0 / 0
24.09.2020, 16:49
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002233
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
да вообще какой-то мёртвый штиль в инторнетах.
зашел на "сделаноунас", освежить вентилятор, дык нет никого!
где всё хомячьё, блин?!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
24.09.2020, 16:54
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002238
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
Мимопроходящий
где всё хомячьё, блин?!

В школе.
...
Рейтинг: 0 / 0
24.09.2020, 16:59
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002416
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Kazantsev Alexey> На буржуйских нынче похожая шляпа творится.

Так я имел в виду как анти-пример.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.09.2020, 09:29
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002469
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Kazantsev Alexey
Код: pascal
1.
memo1.Update;

Спасибо. Скроллить оно тоже умеет при установке SelStart?
wadman
Чего-бы его не вынести в другой поток?
Хотя бы потому, что нужна синхронная операция. В итоге, со всеми костылями от потока не будет никакого профита
...
Рейтинг: 0 / 0
25.09.2020, 11:51
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002490
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Да, скроллить тоже умеет.

P.S. А чего ты такие детские вопросы
задаёшь, среды нет под рукой что ли?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.09.2020, 12:29
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002506
sql2012
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sql2012
Участник
_Vasilisk_,

реально 1 000 000 записей нужно вывести в Memo?
а если я отвлёкся и пропустил 100500 запись, мотать "наверх"? А оно скроллится опять вниз..


или это выдуманный пример...
...
Рейтинг: 0 / 0
25.09.2020, 13:08
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002526
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
Конечно, выдуманный (псевдокод).

В настоящем коде у него
Код: pascal
1.
2.
3.
4.
5.
 
for i := 0 to 234 do begin
  DoSomeRealThings();
  Memo2.Lines.Add(IntToStr(i));
end;


Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
25.09.2020, 13:39
| Ответить | Цитировать | Написать  
Обновление TMemo
    #40002543
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Главное чтобы индикация прогресса не отнимала времени больше чем полезная работа. Рекомендую в конце пути засечь время с индикацией и без. И возможно сделать выводы))
...
Рейтинг: 0 / 0
25.09.2020, 14:21
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Обновление TMemo
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40002506&tid=2037979]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 153ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 210ms
total:  448ms
созд. / загр.: 448ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]