Synchronize(DoSomething);
Damit eliminierst du den Vorteil eines Threads und kannst ihn auch gleich weg lassen.
Ich lese das immer wieder, aber es stimmt einfach nicht. Ja, Synchronize blockiert den Thread während der Aktualisierung. Es macht insofern keinen Sinn, 100% der Arbeit des Threads in einer Synchronize-Methode zu machen.
Aber es funktioniert, ist zuverlässig und einfach - und sofern der Thread 90% seiner Arbeit außerhalb des Synchronize macht, auch kein Problem!
Also ja, das ist sinnlos:
Delphi-Quellcode:
procedure ParseThread.Execute;
begin
while not Terminated do
begin
Synchronize(DoSomething);
end;
end;
Das hingegen absolut sinnvoll und schön kurz + gut lesbar:
Delphi-Quellcode:
procedure ParseThread.Execute;
begin
while not Terminated do
begin
LongrunningCalculation();
Synchronize(ShowProgress);
end;
end;
Wobei LongrunningCalculation ruhig länger dauern darf (ist ja entkoppelt vom Hauptthread) und die Ergebnisse in Feldvariablen der Klasse schreibt. Da Synchronize blockiert, sollte Zugriff auf die Feldvariablen sicher sein. (Das ist mMn auch der Grund, weshalb es blockiert: Damit man über private Felder Daten austauschen kann)
Da
inc(i)
eben sehr flott ist, ist mMn das Beispiel schlecht gewählt. Eventuell ginge Primzahlen finden besser, da zeitaufwändiger ...?