Changeset 144 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 25, 2011, 2:16:25 PM (13 years ago)

Author:

george

Message:

• Modified: Not finished implementation of multithreaded scheduler.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -24 +24 @@
     Button3: TButton;
     Button4: TButton;
+    Button5: TButton;
+    Button6: TButton;
     Label1: TLabel;
     Label2: TLabel;
@@ -34 +36 @@
     procedure Button3Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
+    procedure Button6Click(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -157 +161 @@
   for I := 0 to SpinEdit1.Value do
     Scheduler.AddMethod(Worker);
+end;
+
+procedure TForm1.Button5Click(Sender: TObject);
+var
+  NewThread: TThread;
+  I: Integer;
+begin
+  try
+    I := 0;
+    while True do begin
+      NewThread := TThread.Create(True);
+      NewThread.FreeOnTerminate:= False;
+      Inc(I);
+    end;
+  except
+    ShowMessage('Application can create ' + IntToStr(I) +' TThread instances');
+  end;
+end;
+
+procedure TForm1.Button6Click(Sender: TObject);
+begin
+  ShowMessage(IntToStr(GetThreadID));
 end;