Voici comment utiliser facilement les threads dans Delphi.
Synchronize fonctionne bien si on l’utilise correctement 🙂
Contenu de la fonction
[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]
Mode d’emploi
[code lang= »delphi »]
Wait(procedure()
begin
// …. contenu
end);
[/code]
