델파이에서 쓰레드 사용하기

델파이에서 쉽게 쓰레드 사용하는 방법입니다.

synchronize 는 잘 사용하면 됩니다 🙂

함수내용

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;

사용방법

Wait(procedure()
begin
  // .... 내용
end);