kuruşlu sayısal alanlarda format sorunu

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

kuruşlu sayısal alanlarda format sorunu

Mesaj gönderen White Rose »

s.a.
Paradox veritabanı ile hazırlanmış bir tablonun Dbgridde gösterimi esnasında numerik alanları '0.00,;' formatı ile kuruşlu olarak gösteriyorum.(örn: 12.250,00). Ancak bu durumda içeriği 0(sıfır) olan alanları da '0,00' olarak gösteriyor. Ben içeriği 0 olan kayıtları göstermesini istemiyorum yani bu alanlar gridde gözükmesin. Nasıl yapabilirim, nasıl bir format kullanmalıyım. TŞK.
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

s.a.
formatta '0' yerine '#' kullanırsan düzelmesi lazım.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Mesaj gönderen White Rose »

s.a.
Hocam o zaman da kuruşlu haneleri düzgün göstermiyor
yani 12,00 olan rakamı 12 veya 12,20 olan rakamı 12,2 şeklinde gösteriyor
Rakamlar düzgün durmuyor ve alt alta gelecek şekilde düzgün gözükmüyorlar.
poshet303
Üye
Mesajlar: 235
Kayıt: 26 Eki 2005 01:15

Mesaj gönderen poshet303 »

bu zamanda paradox kullanmak ? Neyse bu önemli değil;

Kod: Tümünü seç

procedure TFormX.FieldName_GetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
 if Sender.AsInteger=0 then Text:=''
 else  Text:=Sender.AsString;
end;
çözüldü mü bu sefer sorununuz?
Kullanıcı avatarı
Biltes
Üye
Mesajlar: 361
Kayıt: 11 Oca 2005 02:24
Konum: Edirne

Mesaj gönderen Biltes »

Hocam öncelikle ;
1- Paradox vt'deki alanını $(money) olarak ayarlamalısın.

2 - Kullandığın displayformatlarını 0.00,## olarak değiştirirsen sorunun kalmaz.

Eğer bunlarda işe yaramıyorsa bu işlemlerden sonra karşılaştığın sorunu yazarsan daha iyi olur...

Kolay gelsin...
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Mesaj gönderen White Rose »

s.a.

Hocam paradox kullanmamın sebebi yaptığım proje 7-8 yıllık ve halen
piyasada kullanıldığı için, o zamanlar paradoxla yapmıştım mecburen.

sorunu da aşağıdaki şekilde hallettim.

procedure TMusHrkEkr.MusharMSH_BRCGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if Sender.AsInteger=0 then
Text:=''
else
Text:=FormatFloat('0.00,;',Sender.AsFloat);
end;

tşk.
Cevapla