delphi7 de ilginç bir hata
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
delphi7 de ilginç bir hata
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
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
- 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...
- 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;