1线程执行a:=1+1,2线程执行b:=1+2,怎么写？

Question

请给出最简单的实现方法，谢谢。

Answer 1

procedure prog1;
var
    a: integer;
begin
    a := 1+1;
end;procedure prog2;
var
    b: integer;
begin
    b := 1+2;
end;var
    threadh1: integer;
    threadh2: integer;
begin
    threadh1 := threadcreat(.....);
    threadh2 := threadcreat(.....);
end;.....中的代码请查看API说明

Answer 2

楼上的??type
  proc1=class(TThread)
   public
     procedure Execute;override;
  end;
  
  proc2=class(TThread)
   public
     procedure Execute;override;
   end;procedure proc1.Execute;
var
  a:integer;
begin
  a:=1+1;
end;procedure proc2.Execute;
var
  b:integer;
begin
  b:=1+2;
end;
调用
  proc1.Create(false);
  proc2.Create(false);

Answer 3

多线程的例子很多呀 再google里搜一下 自己看懂理论了 才好