VPF::Многопоточность - Форум программистов

RaIDeR

Дата 8.8.2005, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 20.6.2005

Репутация: 1
Всего: 4

Здравствуйте ! Для того чтобы создать один поток Я делаю так:

Код



...

type
  TSomeThread = class(TThread)
  private
    Int_: Integer;
    procedure Some_proc;
  protected
    procedure Execute; override;
  end;

...

procedure TSomeThread.Execute;
var
  I: Integer;
begin
  FreeOnTerminate := True;
  for I := 0 to 10000 do
  begin
    Int_ := I;
    Synchronize(Some_proc);
  end;
end;

procedure TSomeThread.Some_proc;
begin
  Form1.Memo1.Lines.Add(IntToStr(Int_));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TSomeThread.Create(False);
end;

А что если мне понадобятся 2,3,4,5 потоков, мне придётся
описовать несколько классов ? А что если кол-во задаётся
динамически ?
-
К примеру мне нужно чтоб один поток выводил текст в memo1,
второй в memo2, и всё это они должны делать одновременно. smile

Song

Дата 9.8.2005, 08:07 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

Бесполезная затея.
Создай их хоть сотню, но они все у тебя будут выполняться в контексте основного VCL потока, т.к. ты обращаешься к VCL'ю из Syncronize.

Добавлено @ 08:07
Т.е. реальной многопоточности или хотя бы её эмуляции у тебя нет.

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

Петрович

Дата 9.8.2005, 08:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Ох, устал.
Читай здесь: Многопоточность - как это делается в Дельфи

--------------------

Все знать невозможно, но хочется

Medved

Дата 10.8.2005, 03:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Цитата

Ох, устал.

Надо на форуме сделать фитчу, чтобы слово многопоточность в разделе Дельфи всегда заменялось ссылкой на эту статью smile

Сорри за оффтопик.

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »