bu hata nedir hangi satırın hata yaptığını nasıl anlarız?

[forumsad]

programı adım adım çalıştırıyorum hata vermiyor en sona gelip ,Application.Run; dan sonra bu hata çıkıyor
neyin hataya neden olduğunu anlayamadım

http://img478.yukle.tc/images/9125hc_001.jpg
saygılarımla

[csunguray]

Debug işaretleri içermeyen bir DCU içerisinde exception oluşuyor. Bence bol bol BerakPoint kullanarak nerede sorun olduğunu bulabilirsiniz.

[forumsad]

teşekkürler hocam

[thelvaci]

Muhtemelen kod içinde bir yerde DebugBreak API'si kullanılmış. Bu API kod içine breakpoint koyabilmenizi sağlar. Örneğin;

Kod: Tümünü seç

var
  iCounter : Integer;
begin
   for iCounter := 0 to 1000 do
   begin
      if iCounter = 100 then DebugBreak;
   end;
end;

Bu kodu çalıştırdığınız iCounter değişkeni 100 değerine eriştiğinde anında debugger ortamına dönüş yaparsınız. Ancak DebugBreak, CPU ortamına dönmenizi sağlar. Eğer kod ortamına dönmek istiyorsanız bu durumda DebugBreak API'si yerine 3 numaraları interrupt'ı kullanmanız gerekir, bu durumda kod şu hale dönüşecektir.

Kod: Tümünü seç

var
  iCounter : Integer;
begin
   for iCounter := 0 to 1000 do
   begin
      if iCounter = 100 then 
         asm
            int 3;
         end;
   end;
end;

Bu kod ile iCounter'ın değeri 100 olduğunda debugger sanki o satırda breakpoint varmış gibi davranacaktır.