Changeset 151 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 27, 2011, 8:05:33 AM (14 years ago)

Author:

george

Message:

• Modified: Elimination of global variables used by TMicroThreadManager Yield method.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -26 +26 @@
     Label10: TLabel;
     Label11: TLabel;
+    Label12: TLabel;
     Label2: TLabel;
     Label3: TLabel;
@@ -39 +40 @@
     SpinEdit1: TSpinEdit;
     SpinEdit2: TSpinEdit;
+    SpinEdit3: TSpinEdit;
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
@@ -57 +59 @@
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure SpinEdit2Change(Sender: TObject);
+    procedure SpinEdit3Change(Sender: TObject);
     procedure TimerRedrawTimer(Sender: TObject);
     procedure TimerSchedulerStartTimer(Sender: TObject);
@@ -62 +65 @@
     procedure Worker(MicroThread: TMicroThread);
   public
+    Iterations: Integer;
     Scheduler: TMicroThreadScheduler;
   end;
@@ -209 +213 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
+  Iterations := SpinEdit3.Value;
 end;
 
@@ -236 +241 @@
 end;
 
+procedure TMainForm.SpinEdit3Change(Sender: TObject);
+begin
+  Iterations := SpinEdit3.Value;
+end;
+
 procedure TMainForm.TimerRedrawTimer(Sender: TObject);
 begin
-  ListView1.Items.Count := Scheduler.MicroThreadCount;
+  if ListView1.Items.Count <> Scheduler.MicroThreadCount then
+    ListView1.Items.Count := Scheduler.MicroThreadCount;
   ListView1.Items[-1];
   ListView1.Refresh;
@@ -258 +269 @@
   I: Integer;
   Q: Integer;
-const
-  TotalSteps = 100;
 begin
   with MicroThread do begin
     //Memo1.Lines.Add('Worker ' + IntToStr(Id));
-    for I := 0 to TotalSteps - 1 do begin
+    for I := 0 to Iterations - 1 do begin
       Q := 0;
-      while Q < 10000 do Inc(Q);
+      while Q < 100 do Inc(Q);
       //Memo1.Lines.Add(IntToStr(Id) + ': ' + IntToStr(I) + ' ' +
       //  FloatToStr(ExecutionTime));
-      Completion := I / TotalSteps;
+      Completion := I / Iterations;
       //Sleep(1 * Id * OneMillisecond);
       Yield;