Changeset 146 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 26, 2011, 7:28:29 AM (14 years ago)

Author:

george

Message:

• Fixed: Freeing micro threads on finish.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -208 +208 @@
       Item.SubItems.Add(MicroThreadStateText[State]);
       Item.SubItems.Add(FloatToStr(ExecutionTime));
+      Item.SubItems.Add(IntToStr(Trunc(Completion * 100)) + '%');
     end;
   finally
@@ -226 +227 @@
 var
   I: Integer;
+const
+  TotalSteps = 100;
 begin
   with MicroThread do begin
     Memo1.Lines.Add('Worker ' + IntToStr(Id));
-    for I := 0 to 1000 do begin
+    for I := 0 to TotalSteps - 1 do begin
       Memo1.Lines.Add(IntToStr(Id) + ': ' + IntToStr(I) + ' ' +
         FloatToStr(ExecutionTime));
+      Completion := I / TotalSteps;
       //Sleep(1 * Id * OneMillisecond);
       Yield;