Changeset 153 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 27, 2011, 10:56:06 AM (13 years ago)

Author:

george

Message:

• Added: Synchronize method.

File:

• MicroThreading/Demo/UMainForm.pas (modified) (3 diffs)

MicroThreading/Demo/UMainForm.pas

@@ -66 +66 @@
   private
     procedure Worker(MicroThread: TMicroThread);
+    procedure WorkerDoWrite;
   public
     Iterations: Integer;
@@ -282 +283 @@
       Q := 0;
       while Q < 100 do Inc(Q);
+      Synchronize(WorkerDoWrite);
       //Memo1.Lines.Add(IntToStr(Id) + ': ' + IntToStr(I) + ' ' +
       //  FloatToStr(ExecutionTime));
@@ -291 +293 @@
 end;
 
+procedure TMainForm.WorkerDoWrite;
+begin
+  Memo1.Lines.Add('.');
+end;
+
 end.