Про потоки

unit UMainForm;
 
interface
 
uses
  classes, types, forms, Controls, StdCtrls, Dialogs, SysUtils;
 
type
  TMainForm = class(TForm)
    bStart: TButton;
    m1: TMemo;
    procedure bStartClick(Sender: TObject);
  private
    procedure Log(const s: string);
    procedure ThreadTerm(Sender: TObject);
  public
    Started:integer;
    Finished:integer;
    procedure RunThread();
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
uses
  UMyThread;
 
 
const
  MAX_THREADS=100;
  SAME_TIME=25;
 
{$R *.dfm}
 
 
 
 
{ TMainForm }
 
 
procedure TMainForm.Log(const s:string);
begin
  m1.Lines.Add(s);
end;
 
procedure TMainForm.ThreadTerm(Sender: TObject);
var
  th:TMyThread absolute Sender; // очень древняя магия. обозначает th:=TMyThread(Sender)
begin
  log(th.URL + ':'+th.answer);
  inc(Finished);
  if Started<MAX_THREADS then
    RunThread;
  if Finished=MAX_THREADS then
  begin
    log('===========================');
    log('Работа окончена');
    bStart.Enabled := true;
  end;
end;
 
procedure TMainForm.bStartClick(Sender: TObject);
var
  i: Integer;
begin
  bStart.enabled:=false;
  for i := 0 to SAME_TIME-1 do
    RunThread;
end;
 
procedure TMainForm.RunThread;
var
  th:TMyThread;
begin
  inc(Started);
  th:=TMyThread.Create('URL '+inttostr(Started), ThreadTerm );
  Log('запущен '+th.url);
  th.Resume;
end;
 
end.

unit UMyThread;
 
interface
uses Classes;
type
  TMyThread=class(TThread)
  public
    URL:string;
    answer:string;
    procedure Execute;override;
    constructor Create(AURL:string; TermProc:TNotifyEvent);
  end;
 
implementation
uses Sysutils;
 
{ TMyThread }
 
constructor TMyThread.Create(AURL:string; TermProc:TNotifyEvent);
begin
  inherited Create(true);
  URL := AURL;
  FreeOnTerminate := true;
  OnTerminate := TermProc;
end;
 
procedure TMyThread.Execute;
var g:TGUID;
begin
  // предположим, что здесь мы сходили в интернет и забрали с адреса URL
  // что-то очень нужное. Ответ поместили в Answer
  // сейчас просто генерируем уникальный ответ
  CreateGuid(g);
  Answer:=g.ToString;
  // сымитируем, что все потоки получат ответ с разной скоростью
  Sleep(Random(50));
end;
 
end.

while i<1000 do
begin
  doSomething();
  inc(i);
end;

while (i<1000) and (not Terminated) do
begin
  doSomething();
  inc(i);
end;

th:=TMyThread.Create(true);
th.Resume;

th.Terminate;

TMyThread=class
  Terminated2:^boolean;
  ...
end;
 
procedure TMyThread.Execute;
begin
  while not Terminated2^ do
  begin
      .....
  end;
end;

TForm1=class(TForm)
 ...
  stopThreads:boolean;
end;
...
th := TMyThread.Create(...);
th.Terminated2:=@stopThread;
...
...
 
stopThread := true;

th:=TMyThread.Create;
th.paramXXX := checkBox1.Checked;

procedure TMyThread.Execute;
begin
  if paramXXX then
    Proc1()
  else
    Proc2();
end;

th := TMyThread.Create(...);
...
procedure TForm1.CheckBox1Checked(Sender:TObject);
begin
  th.paramXXX := checkBox1.Checked;
end;

th:=TMyThread.Create(...);
th.progressBar := progressBar1;
...
procedure TMyThread.ShowProgress;
begin
  progressBar.position := FIndex div 1000;
end;
 
procedure TMyThread.Execute();
begin
  FIndex:=0;
  while FIndex < 100000 do
  begin
    if index mod 1000 = 0 then
      Synchronize(ShowProgress);
   ....
    inc(FIndex);
  end
end;