Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Anonymous Thread & Exception
#11
Ellerinize sağlık üstadım.
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla
#12
(06-11-2019, Saat: 08:43)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı:
(06-11-2019, Saat: 03:50)ismailkocacan Adlı Kullanıcıdan Alıntı:
procedure MyExceptionAcquired(Obj: TObject);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 ExceptionAcquired := @MyExceptionAcquired;
 TThread.CreateAnonymousThread(
   procedure
   begin
     try
       raise Exception.Create('Test');
     except
       on E: Exception do
         AcquireExceptionObject;
     end;
   end).Start;
end;

procedure MyExceptionAcquired(Obj: TObject);
begin
 if (Obj is Exception) then
   ShowMessage((Exception(Obj)).Message);
 ReleaseExceptionObject;
end;

Ellerine sağlık güzel kardeşim. Ama acaba memory leak var mı diye kontrol etmekte fayda var Wink
Haklısınız hocam.Nasıl yaparım diye araştırdığımda karşıma çıkan, Exceptions konusuna baktım.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Thread içinde CoInitialize(nil) ve CoUninitialize serdar 6 1.021 22-08-2023, Saat: 09:50
Son Yorum: yhackup
  Thread Socket (Yardım) hkeskin 1 1.360 11-07-2023, Saat: 12:47
Son Yorum: delphiman
  Thread pool mantığı nasıl kurulmalı ? mrmarman 12 3.106 16-12-2021, Saat: 20:45
Son Yorum: Tuğrul HELVACI
Question Bu thread kullanımı doğrumu ? seci20 0 657 05-09-2021, Saat: 12:55
Son Yorum: seci20
  3D lidar veri analizi için PPL veya Thread nuheroglu 17 5.163 02-08-2021, Saat: 10:35
Son Yorum: omeraksit05



Konuyu Okuyanlar: 1 Ziyaretçi