[labuda]

Нужно разработать приложение с графическим интерфейсом, в котором работают параллельно два потока. В обоих потоках должны происходить какие-то математические вычисления.

[poli-smen]

Сообщение от labuda

Нужно разработать приложение с графическим интерфейсом, в котором работают параллельно два потока. В обоих потоках должны происходить какие-то математические вычисления.

Вместе с Delphi в папке Demos\Threads поставляется пример с графическим интерфейсом который демонстрирует сортировку тремя различными способами в трёх параллельных потоках.

Или вот тебе простейший пример:

Код:

function ThreadFunc(Parameter: Pointer): Integer;
var
  x: Integer;
begin
  while true do
  begin
    x := x + random(100); // Какое-то математическое вычисление
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  tid: DWORD;
begin
  BeginThread(nil, 0, @ThreadFunc, nil, 0, tid); // Запускаем первый поток
  BeginThread(nil, 0, @ThreadFunc, nil, 0, tid); // Запускаем второй поток
end;

Этот же пример скомпилированный и со всеми исходниками можешь скачать здесь: http://zalil.ru/34992174