В этом уроке мы познакомимся с многопоточностью.
Многопоточность — это когда программа одновременно выполняет несколько потоков.
Для создания дополнительного потока используют объект TThread.
Ввести объект TThread в программу можно двумя способами:
с помощью Мастера
вручную
Создание потока с помощью мастера
Чтобы создать поток с помощью мастера, выполним:
Путь
File -> New -> Other -> TThread Object
Жмем на TThread Object, появляется окно, в верхнюю строку которого (Class Name) введем имя нашего будущего потока: NewThread.
В результате будет создан модуль (конструкция), содержащий заготовку кода.
Создание потока вручную
В первом способе класс NewThread был создан мастером в дополнительном модуле. Второй способ состоит в том, что мы сами создаем такой класс в рамках одного из уже существующих модулей программы, например, в модуле Unit1.
Теперь можно активировать созданный поток, даже если в его процедуре Execute нет ни единого оператора.
Кидаем на форму кнопку, создаем событие Button1Click и пишем:
procedure TForm1.Button1Click(Sender: TObject);
begin
NewThread:=TNewThread.Create(False);
NewThread.Priority:=tpNormal;
NewThread.FreeOnTerminate:=true;
end;
end.
Вот вам простой пример потока :) Их может быть не только 1, но и больше :)