Changeset 134 for Microthreading/Demo/umainform.pas

Timestamp:

Jan 23, 2011, 7:25:13 PM (14 years ago)

Author:

george

Message:

• Fixed: Switching micro thread using SP register only was not working. To switch method context BP register have to be switched too.

File:

• Microthreading/Demo/umainform.pas (modified) (1 diff)

Microthreading/Demo/umainform.pas

@@ -145 +145 @@
   I: Integer;
 begin
-  //Memo1.Lines.Add('Work');
-  //with MicroThread do
-  //for I := 0 to 100 do begin
-  //  Memo1.Lines.Add(InttoStr(Id) + ': ' + IntToStr(I));
-    //Sleep(10);
-  //  Yield;
-  //end;
+  with MicroThread do begin
+    Memo1.Lines.Add('Worker ' + IntToStr(Id));
+    for I := 0 to 10 do begin
+      Memo1.Lines.Add(InttoStr(Id) + ': ' + IntToStr(I));
+      SysUtils.Sleep(10 * Id);
+      Yield;
+    end;
+  end;
 end;