Ondalıklı Sayılarda Hata (Virgül hatası) Örn:50,6

[pro_imaj]

Merhaba Arkadaşlar

var
sayi1,Sayi2:integer;
begin
begin
if edit4.Text ='' then
edit4.Text:=Edit3.Text;
end;
begin


sayi1:=StrToint (Edit3.text);
sayi2:=StrToint (Edit4.text);
sayi1:=sayi1-1; // Yazılanıda Araması için
sayi2:=sayi2+1; // Yazılanıda Araması İçin
sistem.AckQuery.Close;
sistem.AckQuery.Sql.Clear;
sistem.AckQuery.sql.text:='Select * From FINSAT4'+Giris.SdkQueryKod.Text+'.ACK Where Tutar>'''+inttostr(sayi1)+''' and Tutar <''' +inttostr(sayi2)+'''';
sistem.AckQuery.Open;
end;
end;

Arkadaşlar Bu kod Düzgün çalışıyor ama tek sorunu tam sayı olmayan kayıtlarda

örn :edit1e 50 edit 2 ye 100 yazdığımda hiçbir sorun yok
ama mesela edit1 e veya edit 2 ye 50,5 yazdığımda yani ondalıklı yazdığımda hata veriyor.

Bir türlü düzeltemedim.
Sorunun tanımlamadan olduğunu düşünüyorum

Teşekkür ederim.

[bobasturk]

benimki sadece fikir

integer tam sayı kodunda floattostr kullansan 50,5 ondalık o yüzden.

yalınız öneriyorum ama denemedim

kolay gelsin

[vedatkaba]

Bence normaldir hata vermesi çünkü

integer

tam sayıyı temsil eder.

şöle yap;

Kod: Tümünü seç

var
sayi1,sayi2:currency (yada double)

İnteger dersen integer sadece tamsayıları temsil eder.float tipinde bir sayıyı işlem gördüremezsin. kolay gelsin.

[pro_imaj]

Yani Currencry de denemdim ama yine olmuyor.

Anlayamıyorum..

Teşkkür ederim Arkadaşlar..

[bobasturk]

ustam saygısızlık ettik ise affola iki dakke önce sözünüzü kesmişim

kolay gelsin

[pro_imaj]

Yani ben ara prog yazdığım için işlem yaptığım alan varchar tanımlı

[vedatkaba]

Hocam estafurullah benden hızlı hareket ,refleks meselesi. Ama benim anlamadığım

Kod: Tümünü seç

currency,double

olmaması

hocam currency ve double haliyle ve hatasıyla yazabişlirseniz yardımcı olcaz.normalde bu tip alanlar float tipli olmalı.o zaman veritabanından kaynaklanan bir hata.

[pro_imaj]

şu anki yazdığım ama hata veren kod


var
sayi1,Sayi2:currency;
begin

begin

if edit4.Text ='' then
edit4.Text:=Edit3.Text;
end;
begin


sayi1:=StrToCurr (Edit3.text);
sayi2:=StrToCurr (Edit4.text);
sayi1:=sayi1-1; // Yazılanıda Araması için
sayi2:=sayi2+1; // Yazılanıda Araması İçin
sistem.AckQuery.Close;
sistem.AckQuery.Sql.Clear;
sistem.AckQuery.sql.text:='Select * From FINSAT4'+Giris.SdkQueryKod.Text+'.ACK Where Tutar>'''+FloatToStr (sayi1)+''' and Tutar <''' +FloatToStr (sayi2)+'''';
sistem.AckQuery.Open;
end;
end;

[vedatkaba]

çevirme işlemini

Kod: Tümünü seç

currtostr(sayi1)

olarak uygula bundan önceki mesajında varchar olarak alan demişsin alan tipini double yap o şekilde dene.hatayı yine yazmamışsın problem çözmede hatanın ne olduğunu bilmek problemiin yarınıs çözmek demek aslında.

kolay gelsin.

[pro_imaj]

Neyi Denediysen olmadı.

Veri Tabanında tipide değiştiremiyorum
çünkü ben ara prog yazıyorum yani başka programın veri tabnında bu işlemi yapıyorum.

Hata Msj = data type varchar to numeric


Ne yaptıysam olmuyor.

Teşekkür ederim

Kolay gelsin

[vedatkaba]

hata belli

Kod: Tümünü seç

data type to numaric

veri tipinde hata var değiştirmen lazım.değiştiremezsen nasıl olcak aklıma birşey gelmiyor.

[vkamadan]

Merhaba,

aşağıdaki kod String şekilde virgüllü yada noktalı verilmiş sayıyı Double olarak geri döndürür zamanında laım olmuştu hazırda yaptığım fonksiyonu veriyorum.

Kod: Tümünü seç

function StringToDouble(Deger: String): Double;
var
tur,Pz:Byte;
tam,SonTam,ondalik:String;
begin
  tur:=0;

  if pos(',',Deger)>0 then
  begin
  tur:=pos(',',Deger);
  tam:=copy(deger,1,tur-1);
  ondalik:=copy(deger,tur+1,length(deger)-tur);
  pz:=Pos('.',tam);
  if pz>0 then
    begin
    SonTam:=Copy(tam,1,pz-1);
    SonTam:=SonTam+copy(tam,pz+1,Length(tam)-pz);
    end else SonTam:=tam;
  if ondalik<>'' then Result:=StrTOFloat(sontam+DecimalSeparator+ondalik) else
  Result:=StrToFloat(sontam+DecimalSeparator+'0');
  end else
    begin
      tur:=pos('.',Deger);
        if tur=0 then Result:=0 else
          begin
             Tam:=copy(deger,1,tur-1);
             Ondalik:=copy(deger,tur+1,Length(deger)-tur);
             Result:=StrTOFloat(tam+DecimalSeparator+ondalik);
          end;
    end;
end;

kolay gelsin.

[pro_imaj]

Herkeze çok teşekkür ederim arkadaşlar.

Halen yapamasamda yardımlarınız için saolun.

Sorun Varsa Çözümde vardır muhakkat.

Saygılarımla

[burakb44]

mrb. uery ile sorgulama yaptığın alanın data tipi ne ise kod yazarkende aynı tipte değişken kullanmalısın. senin veritabanında tutar alanın hangi data tipinde onu yazabilirmisin?

[pro_imaj]

Tip olarak var char tanımlı bunun nedeni ara program yazmış olmama yani bunu değiştirmemeliyim.

Volkan abi yazmış olduğun functionu kullanıcam.

Teşekkür ederim

Kolay Gelsin.