Benim Sorunum DBEditlerde Noktalı ,Virgüllü,Sayılarda..

[HBV]

Benim Sorunum DBEditlerde Noktalı ,Virgüllü,Sayılarda(Örnek: 7.5 - 23,6)
Çıkarma,Bölme,Toplama işlemi yaparken Hata veriyor.Yani;
DBEdit1=35 / DBEdit2=7,5 = 4.66 Sonucu Aşağıdaki Kodlarla alamıyorum.

Kod: Tümünü seç

Label1.Caption:=inttostr( strtoint(dbedit1.text) / strtoint(dbedit2.text) );

veya

Kod: Tümünü seç

Var
Sayi1,sayi2:Integer;
begin
Sayi1:=StrToFloat(DBEdit1.Text);
Sayi2:=StrToFloat(DBEdit2.Text);
Label1.Caption:=FloatToStr(Sayi1 / Sayi2);
end;

Bu DBeditler Bazen boş da olabiliyor.Yukarıda kodlar her iki şekildede hata veriyor,Yardım ederseniz çok memnun olurum.(Alanlar Varchar Olarak tanımlı)

[vesper]

öncelikle sisteminde ondalık sembolü ne ise (, yada .) diğer tipe çevirmen gerekiyor. örneğin ondalık sembolü , ise 2.6 stringini 2,6 ya çevirmelisin.
daha sonra bölen yani dbedit2 0 a eşitmi diye bakmalı 0 değilse bölme yapmalısın. Bu arada değerler null ise veya boşluk ise 0 olarak değerlendirmelisin. Sanırım birde editteki sayıyı bölmeye çalışmak yerine label1.caption:=floattostr(table.field[n].asfloat/table.field[m].asfloat) diye hesaplarsan hata vermez sanırım.
birde unutmadan

Kod: Tümünü seç

Var 
Sayi1,sayi2:Integer; 

demişsin sonrada

Kod: Tümünü seç

Sayi1:=StrToFloat(DBEdit1.Text); 
Sayi2:=StrToFloat(DBEdit2.Text); 

ile integer sayılara float değer atamışsın. Kolay gelsin

[rsimsek]

Atadığın değişken tiplerine dikkat etmelisin. Bölüm sonuçları küsüratlı çıkacağından real / float değişken çevrimi FloatToStr(...) yi kullanmalısın..

Bir de DBEdit ler boş olabilir demişsin.. O zaman da try / except / end; bloğunu kullanabilirsin;

Kod: Tümünü seç

begin
  try
    Label1.Caption:=FloatToStr(StrToFloat(DBEdit1.Text) / StrToFloat(DBEdit2.Text));
  except
    Label1.Caption:='....';
  end;
end;
  

[a_o]

merhaba , veya . işlemlerini ayarlamak için editlerin çıkışına aşağıdaki kodu yazabilirsin. böylece ayraçların hepsi . haline dönüşmüş olur

Kod: Tümünü seç

DBEdit1.Text:=AnsiReplaceText(DBEdit1.Text,',','.');

kolay gelsin

[HBV]

Yukarıdaki kodları denedim Maalesef Olmuyor,Verdiği hata ;

.........exception class Econver Error With message"7.5 is not avalit Floating.Point value" Process Stopped.

Burada a valit olduğunu(Kural dışı) nokta göstermede hata olduğunu söylüyor.

program çalıştığı anda DBEditlerde değer olsun olmasın veya ben değer gireyim veya girmiyeyim Label'de boş sa "0" Doluysa Labelde sonuç gösterecek. olaylarda mı bir yanlışım var....

Kod: Tümünü seç

if edit1.text='' then
begin 
Dbedit1.text:=0;
end else
Label1.Caption:=inttostr( strtoint(dbedit1.text) / strtoint(dbedit2.text) );
end;

yukarıdaki kod da çalışmadı.."0" değer ne olursa olsun ama yemedi.

[bobasturk]

merhaba,

sanırım yanlış biliyor olabilirimde kodunda inttostr kullanıyorsun integeri stringe çeviriyorsun stringi ise integere çeviriyorsun ama edit lere girdiğin sayılar float. yani noktalı integer tam sayı değil bu yüzden hata veriyor olabilir.

kolay gelsin

[mucar]

rsimsek hocamın verdiği kod işinizi görür. hata çıkmasının nedeni ise Dbedit kullanmanız. veritabanında gerekli alanları doğru şekilde tanımlamalısınız. integer değil float olarak tanımlamalısınız. zira dbedit yerine edit kullanıp bunu denerseniz, sorunun bundan kaynaklandığını görürsünüz. kolay gelsin

[HBV]

Evet Bende Editlere aktarmayı düşünüyordum...RŞimsek Hocamın Kodlarınıda deniyorum.......Zaten DBEdit Olması problem..Tam sayı girmek lazım ama proğram gereği Noktalı veya virgül girilmek zorunda.

[HBV]

Aşağıdaki Kodlar DBEdit ler doluyken çalışıyor.Üzerinde tekrar işlem normal ama Silip yeni değer yazmağa kalkarsam hata veriyor.
RSimsek Hocamın Kod u iş görecek gibi..sağolsun.

Kod: Tümünü seç

begin 
try 
Label1.Caption:=FloatToStr(StrToFloat(DBEdit1.Text) / StrToFloat(DBEdit2.Text)); 
except 
DBEdit1.Text:='....'; 
end; 
end;

.......

Kod: Tümünü seç

DBEdit1.Text:=AnsiReplaceText(DBEdit1.Text,',','.');

Bu kodu eklersem değiştirme yapıyor.....