新手学习，100分求下面多线程效果的代码。

Question

（在网上搜索了一堆多线程的学习教程，越看越糊涂，想先找个例子来入下门）用多线程的方式，在窗体的Memo控件上增加1-100个数字行（每行一个数字,不重复），每次最多有5个同时运行的线程。

Answer 1

你造一个线程，然后创建5个去填充memo就是了

Answer 2

为啥要启动第6个,线程可以循环执行的啊
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ASGSQLite3, StdCtrls, DB;type
  TNumThread = class(TTHread)
  private
    FNum: Integer;
    procedure Execute; override;
    procedure ShowData;
  public
    ThreadNo: Integer;
  end;var
  lineCount: Integer;  
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button5: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
procedure TNumThread.ShowData;
begin
  Form1.Memo1.lines.Add(IntToStr(FNum) + ' ' + IntToStr(ThreadNo));
end;
procedure TNumThread.Execute;
begin
  inherited;
  FreeOnTerminate := True;
  while lineCount < 10000 do
  begin
    InterlockedIncrement(lineCount);
    FNum := lineCount;
    // 同步
    Synchronize(ShowData);
  end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
  numThread:array [0..4] of TNumThread ;
  I: Integer;
begin
  memo1.Clear ;
  lineCount := 0;
  for I := 0 to 4 do
  begin
    numThread[I] := TNumThread.Create(True);
    numThread[I].ThreadNo := I;
    numThread[I].Resume ;
  end;
end;end.

Answer 3

#6 用了
    InterlockedIncrement(lineCount);
怎么没有Decrement？（具体名字忘记了）
反正就是一个标示inc，一个表示dec
还有既然用了Synchronize(ShowData);
不晓得，Memo.Lines有没有Lock和UnLock，保护一下。

Answer 4

为什么我用6楼的代码会报：
Undeclared identifier: 'InterlockedIncrement'
我已经引用了"sysutils＂单元啊？

Answer 5

InterlockedIncrement是原子操作，不需要lock的

Answer 6

uses
  Windows;
InterlockedIncrement在windows这个单元中