İlginç Bir durum

[m_ekici]

Programın girişinde

Kod: Tümünü seç

ThousandSeparator:=',';
DecimalSeparator :='.';

var. M$ Sql e Query ile INSERT yapıyorum. Bazen küsüratlı olan sayının kuruş ayıracına . (nokta) yerine , (virgül) koyuyor. Haliyle 0,2.5,2 olması gerekn yazım 0,2,5,2 oluyor ve query hata ile dönüyor. Prg. çıkıp tekrar giriyorum aynı işlemi doğru yapıyor. Programın herhangi biryerinde seperator değişikliği yapmıyorum. Değişken Double tanımlı ve

Kod: Tümünü seç

','+FloatToStr(AGIRLIK.Value)+','

olarak yazıyorum. Böyle bir durumla karşılaşan oldu mu? Tşk

[iqprog]

Kod: Tümünü seç

ThousandSeparator:=',';
DecimalSeparator :='.';

lafını

Kod: Tümünü seç

Application.UpdateFormatSettings := False;
ThousandSeparator:=',';
DecimalSeparator :='.';

olarak değiştir