می خواستم بدونم برای داشتن یه thread در دلفی چکار باید کرد ؟

می خواستم بدونم برای داشتن یه thread در دلفی چکار باید کرد ؟

سلام
بجز دعا(كه در هر موردي مي توان انجام داد) مي تونيد كد بنويسيد.
يك مثال ساده :

کد:

---

type
  TSimpleThread = class(TThread)
  public
  intSum,intVal1,intVal2 : Integer;
  constructor Create(Val1,Val2 : integer);
  private
  protected
    procedure Execute; override;
  end;

constructor TSimpleThread.Create(Val1,Val2 : integer);
begin
  intSum := 0;
  intVal1 := Val1;
  intVal2 := Val2;
  FreeOnTerminate := True;
  inherited Create(True);
end;

procedure TSimpleThread.Execute;
begin
 intSum := intVal1 + intVal2;
end;

---

بعد تعريف يك متغير :

کد:

---

  thdThread : TSimpleThread;

---

ايجاد و اجرا :

کد:

---

thdThread := TSimpleThread.Create(1,2);
 thdThread.Execute;
 Resutl := thdThread.intSum;

---