Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Обновление TMemo / 15 сообщений из 15, страница 1 из 1
24.09.2020, 15:01:24
    #40002165
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление TMemo
Есть такой код
Код: 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:06:40
    #40002168
Kazantsev Alexey
Kazantsev Alexey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление TMemo
_Vasilisk_,

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

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

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

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

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

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

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

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

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


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

В настоящем коде у него
Код: 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, 14:21:37
    #40002543
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Обновление TMemo
Главное чтобы индикация прогресса не отнимала времени больше чем полезная работа. Рекомендую в конце пути засечь время с индикацией и без. И возможно сделать выводы))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Обновление TMemo / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 540ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2037979]:
 0ms
get settings:
 13ms
get forum list:
 23ms
check forum access:
 6ms
check topic access:
 6ms
track hit:
 58ms
get topic data:
 18ms
get forum data:
 4ms
get page messages:
 80ms
get tp. blocked users:
 2ms
others: 330ms
total:  540ms
x
x
Закрыть


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