Deadlock hatasını Türkçe olarak nasıl verdirebiliriz?

[ofenX]

Merhaba,
Mesaj vermemesi başka bir hata olduğundandır. Siz sadece deadlock olursa mesaj ver demişsiniz. Ya diğer hatalar ?
Yukarıdaki kodu aşağıdaki gibi değiştirirseniz. Deadlock dışındakini de verecektir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
   IBDataSet1.Post;
 except

   on E: Exception do
          begin
              showmessage(e.classname+' '+e.message);

               if Pos('deadlock',e.Message)<>0 then
                     begin
                          ShowMessage('Kayıt kilitli, biraz sonra deneyin');
                      end; //if sonu

    end;

   end;//try sonu


 end; //procedure sonu

Deadlock u gösterebilmek için bir kayıtı meşgul etmeniz lazım. Yani biri edit te iken diğer taraftan edit yap deyince bunu vermesi lazım.


İyi çalışmalar.

[NewMember]

Arkadaşlar teşekkür ederim.Dediğim gibi sizleri yanlış anlamışım ben kodu her iki duruma da yazıyordum.Try excepte yazdım ve şimdi o blokta başka hata olursa mesaj vermiyor sadece deadlock hatasında yazdığım mesaj çıkıyor.Çok sağolun.Kolay gelsin.