본문 바로가기

Developist

Delphi/끄적이기 procedure를 Task로 호출하기 var .., System.Threading; procedure RunTask(AProc: TProc); begin //단일 프로시저일 경우 TTask.Run(AProc).Wait(); end; procedure RunTasks(arrProc: array of TProc); var I: Integer; Tasks: array of ITask; begin //다수의 프로시저를 동시에 호출해야 할 경우 SetLength(Tasks, High(arrProc) + 1); for I := Low(Tasks) to High(Tasks) do Tasks[I] := TTask.Run(arrProc[I]); TTask.WaitForAll(Tasks); end;
Delphi/끄적이기 procedure를 Thread로 호출하기 var .., System.Classes;type IMyThread = interface function Handle: THandle; procedure Start; end; TMyThread = class(TInterfacedObject, IMyThread) private Thread : TThread; FHandle : THandle; public function Handle: THandle; procedure Start; constructor Create(AProc: TProc; isStart: Boolean = True); destructor Destroy; override; end;{ TAutoThread } constructor TMyThread.Create(AProc: TProc; isSta..
Delphi/끄적이기 StopWatch로 시간 체크 var .., System.Diagnostics;type IAutoStopWatch = interface procedure Start; function Stop: string; end; TAutoStopWatch = class(TInterfacedObject, IAutoStopWatch) private FStopWatch : TStopWatch; public procedure Start; function Stop: string; constructor Create(isStart: Boolean = True); destructor Destroy; override; end; { TAutoStopWatch } constructor TAutoStopWatch.Create(isStart: Boolean); begi..

티스토리툴바