Changeset 89 for trunk/Packages/Common/UThreading.pas

Timestamp:

Sep 6, 2012, 8:29:27 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Balíček ModularSystem namísto vlastní implementace.
• Upraveno: Aktualizace balíčku Common.

File:

• trunk/Packages/Common/UThreading.pas (modified) (8 diffs)

trunk/Packages/Common/UThreading.pas

@@ -17 +17 @@
   TVirtualThread = class
   private
+    function GetFinished: Boolean; virtual; abstract;
     function GetFreeOnTerminate: Boolean; virtual; abstract;
     function GetPriority: TThreadPriority; virtual; abstract;
@@ -42 +43 @@
     property Priority: TThreadPriority read GetPriority write SetPriority;
     property Terminated: Boolean read GetTerminated write SetTerminated;
+    property Finished: Boolean read GetFinished;
     property ThreadId: Integer read GetThreadId;
   end;
@@ -61 +63 @@
   private
     FTerminated: Boolean;
+    FFinished: Boolean;
     FThread: TListedThreadExecute;
+    function GetFinished: Boolean; override;
     function GetFreeOnTerminate: Boolean; override;
     function GetPriority: TThreadPriority; override;
@@ -160 +164 @@
 procedure Synchronize(Method: TMethodCall);
 var
-  I: Integer;
   Thread: TVirtualThread;
 begin
@@ -172 +175 @@
 end;
 
-
 { TThreadList }
 
@@ -196 +198 @@
 begin
   try
-    Parent.Execute;
-  except
-    on E: Exception do
-      if Assigned(OnException) then
-        OnException(Parent.FThread, E);
+    try
+      Parent.Execute;
+    except
+      on E: Exception do
+        if Assigned(OnException) then
+          OnException(Parent.FThread, E);
+    end;
+  finally
+    Parent.FFinished := True;
   end;
 end;
 
 { TListedThread }
+
+function TListedThread.GetFinished: Boolean;
+begin
+  Result := FFinished;
+end;
 
 function TListedThread.GetFreeOnTerminate: Boolean;
@@ -255 +266 @@
   const StackSize: SizeUInt);
 begin
+  FFinished := False;
+  FTerminated := False;
+
   FThread := TListedThreadExecute.Create(True, StackSize);
   FThread.Parent := Self;
@@ -289 +303 @@
   I: Integer;
 begin
+  if Terminated then Exit;
   SysUtils.Sleep(Delay mod Quantum);
   for I := 1 to (Delay div Quantum) do begin