yazdığım bir string fonksiyonu

[berken]

merhaba arkadaslar... girilen stringi evirip ceviren birfonksiyon yazdım ..
iki ayrı programımda kullanıyorum.
birinde sorunsuz ve çok hızlı açılırken diğerinde programı kilitliyor..
adım adım çalıştırdım REsult ta sorun verdi..
Acces validation bilmem ne adres..
çıkan kaynak kodda da herseferinde

Kod: Tümünü seç

puss $00000040 

gibi bir satırda veriyor hatayı.. sebebi ne olabilir.

[mkysoft]

kodları buraya yazman daha iyi olurdu. aklıma gelen hata nedenlerini söyleyeyim. Kullandığın fonksiyon bir array sonuç üretiyor ve sen fonksiyonu recursive (sanırım böyle yazılıyordu) olarak kullanıyorsun. Bir sürü nedeni olabilir. Delphi her zaman hata veren doğru noktayı bulamayabiliyor.

[berken]

aslında bir çeşit kodlama idi yaptığım..
basit bir şey yaptım çözültü.. eskiden sorgunun içinde kodlama yapıyordum.. yani if edit1.text = kodla(label1.caption).. sanırım (çok da mantıklı gelmedi ama ) burda sorun. ben bu hale çevirdim
kod := kodla(label1.caption)
if edit1.text = kod ...