Her satırda ayrı displayformat

[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.



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.

[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.