Real Sayı Formatı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
rapsodim
Üye
Mesajlar: 147
Kayıt: 15 Eki 2003 03:52

Real Sayı Formatı

Mesaj gönderen rapsodim »

Arkadaşlar günaydın,
12,69 şeklinde bir real sayı var.
k := StrTofloat(query1.fieldbyname('kdv').asstring);
FmtStr(kyolla, '%13.2f', [k]);
table2.FieldByName('kdv').asstring:= kyolla;

ifadesiyle 13 haneli sayının başında boşluk oluyor bu boşluğun değerlerinin sıfır olması için fonksiyonda nasıl yaparım.ilginize teşekkür ederim.
Çağrıbey
Üye
Mesajlar: 40
Kayıt: 26 Kas 2004 11:25
Konum: Ankara

boşlukları sıfırlama

Mesaj gönderen Çağrıbey »

//aşağıdaki field Access veritabanında sayısal bir alandir
//boşluk bulunduğu sürece boşlukları sıfır ile doldururuyor
sizde bu formülü kendinize göre uyarlayabilirseniz
Aktar_Ay_NetMaas alanı string, Topla_Net_Maas ise currency olarak
tanimlanmiştir.l
*
Aktar_Ay_NetMaas:=CurrToStr(Topla_Net_Maas);
Repeat
Aktar_Ay_NetMaas:='0'+Aktar_Ay_NetMaas;
until length(Aktar_Ay_NetMaas)=13;
//
Cevapla