Changeset 305 for Common/UThreading.pas

Timestamp:

Jan 3, 2012, 10:31:59 AM (13 years ago)

Author:

chronos

Message:

• Added: Property Finished of TListedThread.

File:

• Common/UThreading.pas (modified) (6 diffs)

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;
@@ -172 +176 @@
 end;
 
-
 { TThreadList }
 
@@ -196 +199 @@
 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 +267 @@
   const StackSize: SizeUInt);
 begin
+  FFinished := False;
+  FTerminated := False;
+
   FThread := TListedThreadExecute.Create(True, StackSize);
   FThread.Parent := Self;