delphi7 de ilginç bir hata

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
gimil
Üye
Mesajlar: 33
Kayıt: 28 Ara 2006 10:29
Konum: ank

delphi7 de ilginç bir hata

Mesaj gönderen gimil »

Selam arkadaşlar

delphi7 ile program yazarken öyle bir hata çıkarıyorki ne yapsam düzelmiyor

ben a değişkeni tanımladım. bu değişken integer dı. daha sonra o değişkeni qrlabel ların yerlerini belirlemek için kullandım.

program sürekli a is not valid integer value hatası veriyor. a değişkenini komple iptal ettim ama yinede aynı hata yı veriyor.

yardımlarınızı bekliyorum.

Not: lütfen a değişkenini kullandığın yerlerden sil falan demeyin zaten sildim. hemde normalde hata vermeyen kodlardı onlar birden bire hata vermeye başladı.

hata başlığı: debugger exception notification
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

a içeren bir string ifadeyi integer e dönüştürme işlemi yapıyorsunuz.

StrToInt("a") gibi bir işlem bu hatayı verecektir.
gimil
Üye
Mesajlar: 33
Kayıt: 28 Ara 2006 10:29
Konum: ank

Mesaj gönderen gimil »

öyle bir işlem kodlarda yok isterseniz mailinize programı yollayıym bir bakın
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

Quick Report mu kullanıyorsunuz? Label'lardan birinin içeriği integer olması gerekirken a yazılı kalmış olabilir mi?
gimil
Üye
Mesajlar: 33
Kayıt: 28 Ara 2006 10:29
Konum: ank

Mesaj gönderen gimil »

evet qreport kullanıyorum ama program hiç çalışmadan bu hatayı veriyor
mail adresinizi verirseniz sevinirim
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

Programın o kısmına kesme (F5 - break point) koyup nerede hata verdiğini yakalayabilirsiniz. Hatalı kodu buraya yazarsanız biz de hayalimizde canlandırmaya uğraşmayız :idea:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Mesaj gönderen fduman »

Arkadaş hatayı debug ederek bulmuş. Ancak başka başlık altında yazdığından belli olmadı tabi. Yeni bir üyemiz. Alışacaktır zamanla.
gimil
Üye
Mesajlar: 33
Kayıt: 28 Ara 2006 10:29
Konum: ank

Mesaj gönderen gimil »

if dbedit27.text<>'' then edit26.text:=inttostr(strtoint(edit1.text)-strtoint(dbedit27.text));

hatalı satır bu.
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

- Veriler DB'den elmiyor olsadı girişte rakam dışında karakter kabul etmeyebilirdin. Şimdi ise aşağıdaki şekilde bir kontrol mekanizması kurabilirsin.

- Fonksiyon, harfsel ifade içeren veya boş olan ifadelerde FALSE değeri döndürür...

Kod: Tümünü seç

Function RakamsalIfade(bilgi:String):Boolean;
Const
  Rakamlar = ['0'..'9'];
Var
  i : Integer;
begin
  Result := True;
  For i  := 1 to Length(Bilgi) do If NOT (Bilgi[i] in Rakamlar) then Result := False;
  If Length(Trim(bilgi)) = 0 then Result := False;
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  if  RakamsalIfade(dbedit27.text)
  AND RakamsalIfade(edit1.text)
    then edit26.text:=inttostr(strtoint(edit1.text)-strtoint(dbedit27.text))
    else ShowMessage( 'Bilgilerde Tutarsızlık Var !');
end;
Resim
Resim ....Resim
Cevapla