Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.04.2013, 17:28
red2010 red2010 вне форума
Прохожий
 
Регистрация: 07.04.2013
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Работа с потоками

Есть два едит. В одном цисло - 0, в другом - 99999. Нужно от 0 до 99999 вывести порядок возрастания в мемо при работе в 10 потоках. Цикл отпадает, нужно сделать в процедуре синхронизации.
Пример вывода в мемо.
Цитата:
1
2
3
и тд. до
99999
Ответить с цитированием
  #2  
Старый 07.04.2013, 20:01
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Например, каждый поток выводит в свой StringList числа принадлежащего ему диапазона, а потом их все объединить. Только не пойму, кому и зачем такая наркомания нужна.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #3  
Старый 07.04.2013, 23:45
red2010 red2010 вне форума
Прохожий
 
Регистрация: 07.04.2013
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Bargest, да мне нужна. Просто нужно бывает сгенерировать большие числа и через цикл это выходит очень долго. Как сделать программу многопоточной, в несколько потоков, курю и не понимаю. Подскажите примером, предложенный вами вариант.
Ответить с цитированием
  #4  
Старый 07.04.2013, 23:57
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Если выводить по порядку, то в данном случае толку не будет от многопоточности. А если генерировать какие-то отдельные блоки информации - то возможно. Читай TThread коли средствами делфи или CreateThread в случае API.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
  #5  
Старый 08.04.2013, 00:17
red2010 red2010 вне форума
Прохожий
 
Регистрация: 07.04.2013
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Bargest, спасибо большое. Помог. Тема закрыта.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:27.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter