Her satırda ayrı displayformat

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
maxpaynen
Üye
Mesajlar: 14
Kayıt: 14 Tem 2018 03:20
İletişim:

Her satırda ayrı displayformat

Mesaj gönderen maxpaynen »

Tablo Alanları
Borç = Float
Alacak = float
ParaBirimKodu = String

Borç ve alacağın görüntü formatını değiştirmek için
AdoBorc.DisplayFormat:="###.###.###,00TL" kullanıyorum. Gayet başarılı çalışıyor. Fakat tüm listeye aynı formatta işlem yapıyor. Ben Parabirimkodu alanıma bağlı olarak formatın değişmesini istiyorum.

Resim

Resimde de görüldüğü gibi son kayıtta 36,00TL olmalı. Komutu basit zaten if parabirimkodu='TL' then displayformat=....TL ama nereye yazacağımı tam olarak bulamadım.
Kullanıcı avatarı
maxpaynen
Üye
Mesajlar: 14
Kayıt: 14 Tem 2018 03:20
İletişim:

Re: Her satırda ayrı displayformat

Mesaj gönderen maxpaynen »

Kod: Tümünü seç

procedure TfrmCariHareket.AdoHareketCHBorcGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
DisplayText:=true;
 Text:=formatfloat('###,###,##0.00'+  AdoHareketCHParaBirimKodu.Value , Sender.AsFloat ); 
end;
buldum cevabını paylaşayım dedim.
Cevapla