Sử dụng thread trong Delphi

Cách sử dụng thread dễ dàng trong Delphi.

Chỉ cần sử dụng synchronize đúng cách 🙂

Nội dung hàm

[code lang=”delphi”]
uses System.Classes, System.SysUtils, Vcl.Forms;

procedure Wait(Proc: TProc);
var
Thread: TThread;
begin
Thread := TThread.CreateAnonymousThread(procedure()
begin
Proc;
end);
Thread.FreeOnTerminate := True;
Thread.Start;
while not Thread.Finished do Application.ProcessMessages;
end;
[/code]

Cách sử dụng

[code lang=”delphi”]
Wait(procedure()
begin
// …. 내용
end);
[/code]