Značka: Convenient

Jednoduchý spôsob, ako používať vlákna v Delphi. Synchronize stačí správne používať 🙂 Obsah funkcie [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…