Changeset 135 for Microthreading/Demo/umainform.pas

Timestamp:

Jan 23, 2011, 8:04:49 PM (13 years ago)

Author:

george

Message:

• Added: Showing MicroThread list.
• Added: Measuring execution time.
• Added: Do not free micro thread on finish flag.

File:

• Microthreading/Demo/umainform.pas (modified) (7 diffs)

Microthreading/Demo/umainform.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UMicroThreading, Coroutine;
+  ComCtrls, ExtCtrls, UMicroThreading, Coroutine, DateUtils;
 
 type
@@ -26 +26 @@
     ListView1: TListView;
     Memo1: TMemo;
+    Timer1: TTimer;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -31 +32 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
   private
     procedure Worker(MicroThread: TMicroThread);
@@ -65 +67 @@
 begin
   Scheduler := TMicroThreadScheduler.Create;
+  Scheduler.FreeMicroThreadOnFinish := False;
   Test := TTest.Create;
 end;
@@ -74 +77 @@
   for I := 0 to 1 do
     Scheduler.Add('Worker', Worker);
-  Scheduler.Start;
+  repeat
+    Scheduler.Start;
+    Application.ProcessMessages;
+    Sleep(1);
+  until Scheduler.MicroThreadCount = 0;
 end;
 
@@ -141 +148 @@
 end;
 
+procedure TForm1.Timer1Timer(Sender: TObject);
+var
+  I: Integer;
+  NewItem: TListItem;
+begin
+  try
+    ListView1.BeginUpdate;
+    ListView1.Clear;
+    Scheduler.Lock.Acquire;
+    for I := 0 to Scheduler.MicroThreads.Count - 1 do
+    with TMicroThread(Scheduler.MicroThreads[I]) do begin
+      NewItem := ListView1.Items.Add;
+      NewItem.Caption := IntToStr(Id);
+      NewItem.SubItems.Add(Name);
+      NewItem.SubItems.Add('');
+      NewItem.SubItems.Add(IntToStr(Priority));
+      NewItem.SubItems.Add(MicroThreadStateText[State]);
+      NewItem.SubItems.Add(FloatToStr(ExecutionTime));
+    end;
+  finally
+    Scheduler.Lock.Release;
+    ListView1.EndUpdate;
+  end;
+end;
+
 procedure TForm1.Worker(MicroThread: TMicroThread);
 var
@@ -149 +181 @@
     for I := 0 to 10 do begin
       Memo1.Lines.Add(InttoStr(Id) + ': ' + IntToStr(I));
-      SysUtils.Sleep(10 * Id);
-      Yield;
+      Sleep(100 * Id * OneMillisecond);
     end;
   end;