Added Profiler.Trace to profile Proc() and Profiler-Trae<T> to profil…

…e Func<T>

samples/profiling_showcase/MainFormU.dfm

@@ -2,7 +2,7 @@ object MainForm: TMainForm
   Left = 0
   Top = 0
   Caption = 'Profiler :: Sample'
-  ClientHeight = 232
+  ClientHeight = 302
   ClientWidth = 560
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -13,7 +13,7 @@ object MainForm: TMainForm
   OnCreate = FormCreate
   DesignSize = (
     560
-    232)
+    302)
   TextHeight = 15
   object btnSimple: TButton
     Left = 16
@@ -52,4 +52,13 @@ object MainForm: TMainForm
     TabOrder = 3
     OnClick = chkLogsThresholdClick
   end
+  object btnTrace: TButton
+    Left = 16
+    Top = 240
+    Width = 129
+    Height = 41
+    Caption = 'Trace'
+    TabOrder = 4
+    OnClick = btnTraceClick
+  end
 end

samples/profiling_showcase/MainFormU.pas

@@ -12,11 +12,13 @@   TMainForm = class(TForm)
     btnNestedCalls: TButton;
     btnNestedCallsInLoop: TButton;
     chkLogsThreshold: TCheckBox;
+    btnTrace: TButton;
     procedure btnSimpleClick(Sender: TObject);
     procedure btnNestedCallsClick(Sender: TObject);
     procedure btnNestedCallsInLoopClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure chkLogsThresholdClick(Sender: TObject);
+    procedure btnTraceClick(Sender: TObject);
   private
     { Private declarations }
   public
@@ -70,6 +72,28 @@ procedure TMainForm.btnSimpleClick(Sender: TObject);
   DoSomething;
 end;
 
+procedure TMainForm.btnTraceClick(Sender: TObject);
+begin
+  Profiler.Trace('Test PROC',
+    procedure
+    begin
+      Sleep(Random(20));
+    end, 10);
+
+
+  var lRes := Profiler.Trace<String>('Test FUNC',
+    function: String
+    var
+      I: Integer;
+    begin
+      for I := 1 to 10 do
+      begin
+        Result := Result + 'x';
+        Sleep(Random(5));
+      end;
+    end, 10);
+end;
+
 procedure TMainForm.chkLogsThresholdClick(Sender: TObject);
 begin
   Profiler.LogsOnlyIfOverThreshold := chkLogsThreshold.Checked;