Changeset 147 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 26, 2011, 8:06:25 AM (14 years ago)

Author:

george

Message:

• Added: Now multiple thread managers are running within single scheduler.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -28 +28 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
     ListView1: TListView;
     Memo1: TMemo;
     SpinEdit1: TSpinEdit;
+    SpinEdit2: TSpinEdit;
     Timer1: TTimer;
     procedure Button1Click(Sender: TObject);
@@ -89 +92 @@
     Button1.Caption := 'Stop scheduler';
     Memo1.Clear;
+    Scheduler.ThreadPoolSize := SpinEdit2.Value;
     Scheduler.Start;
   end else begin
     Button1.Caption := 'Start scheduler';
     Scheduler.Stop;
+    Scheduler.ThreadPoolSize := 0;
   end;
 end;
@@ -227 +232 @@
 var
   I: Integer;
+  Q: Integer;
 const
   TotalSteps = 100;
@@ -233 +239 @@
     Memo1.Lines.Add('Worker ' + IntToStr(Id));
     for I := 0 to TotalSteps - 1 do begin
-      Memo1.Lines.Add(IntToStr(Id) + ': ' + IntToStr(I) + ' ' +
-        FloatToStr(ExecutionTime));
+      Q := 0;
+      while Q < 1000000 do Inc(Q);
+      //Memo1.Lines.Add(IntToStr(Id) + ': ' + IntToStr(I) + ' ' +
+      //  FloatToStr(ExecutionTime));
       Completion := I / TotalSteps;
       //Sleep(1 * Id * OneMillisecond);