Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.04.20;
Скачать: CL | DM;

Вниз

вопрос по потокам   Найти похожие ветки 

 
tim   (2008-03-25 17:51) [0]

Всем привет! у меня такой вопрос:
есть некоторые входные данные, которые нужно обработать. этим занимаются 10 процедур,друг от друга не зависящие.
т.е. по button.click
procedure_1;
procedure_2;
...
procedure_9;
procedure_10;
разумеется хотелось чтобы они просчитывались сразу, как я понимаю для этого сущ-ют потоки.

создаю поток прямо в проекте(мне так удобней нежели создавать отделный файл pas,хотя может я не прав в выборе).
TFunc_get_1 = class(TThread)
private
 procedure Get_1;
protected
 procedure execute; override;
end;

...
var
...  
get1:TFunc_get_1;

...
procedure TFunc_get_1.Get_1;
begin
...
end;

procedure TFunc_get_1.execute;
begin
 synchronize(Get_1);
end;

потом в button
if CheckBox9.Checked then
begin
 get1 := TFunc_get_1.create(true);
 get1.resume;
end;


оно работает,но я не знаю правильно ли будет создавать все выше описанно для каждого потока отдельно или может все в один запихнуть?тогда наверно нету смысла в созданнии одного потока...
Жду комментариев и ответов.


 
Игорь Шевченко ©   (2008-03-25 17:52) [1]


> procedure TFunc_get_1.execute;
> begin
>  synchronize(Get_1);
> end;


Дети Архангельского, блин. Удавить.


 
Palladin ©   (2008-03-25 17:54) [2]

песец... опять оно... вот пример правильного построения работы потока...
http://www.delphimaster.ru/articles/panov/index.html

и прочитай про synchronize, зачем оно нужно, и почему его не нужно пихать в каждую дырку


 
tim   (2008-03-25 17:56) [3]


> Игорь Шевченко


кажется твой ответ не является ответом или советом на мой вопрос.


 
tim   (2008-03-25 17:56) [4]

Palladin, спасибо!


 
Сергей М. ©   (2008-03-25 20:15) [5]


> tim   (25.03.08 17:56) [3]


Тебе, пробегающему мимо, просто неведомо, как затрахали эти "дети" тех, кто задержался здесь чуть дольше чем ты)


 
Игорь Шевченко ©   (2008-03-25 20:28) [6]


> кажется твой ответ не является ответом или советом на мой
> вопрос.


Я так понимаю, что совет почитать нормальную книгу уже безнадежно опоздал. Тогда только удавить.



Страницы: 1 вся ветка

Текущий архив: 2008.04.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
2-1206529994
saNat
2008-03-26 14:13
2008.04.20
Ошибка при создании записи, одно из полей которой пусто.


15-1204872820
ANB
2008-03-07 09:53
2008.04.20
Отправить почту через MS Exchange


2-1206337658
beglec
2008-03-24 08:47
2008.04.20
Удаление данных из потока TMemoryStream


3-1194067877
Sirus
2007-11-03 08:31
2008.04.20
Отслеживание изменений в базе


15-1204294018
Kolan
2008-02-29 17:06
2008.04.20
У кого нибудь осталась ветка про выбор emdedded СУБД?