Quick Repotta alan formatı..

[sword]

Çalışma anında oluşturulan Quick Repotta float alanı(26,22222222222222) nasıl 26,2 ye formatlarız.. displayformat gibi bir komut varmı???
Kolay gelsin..

[ALUCARD]

buraya gelen veri eğer tablodan veya qery den geliyorsa onun displayformat ının formatlarsan formatlı olur

[sword]

buraya gelen veri eğer tablodan veya qery den geliyorsa onun displayformat ının formatlarsan formatlı olur

Queryde displayformat ile formatladım fakat quick Reporta gönderdiğimde tekrar formatsız şekline dönüşüyor...
(TnumericField(Query1.FieldByName('ORT')).DisplayFormat:='#,###';)

[ALUCARD]

Queryde displayformat ile formatladım fakat quick Reporta gönderdiğimde tekrar formatsız şekline dönüşüyor...
(TnumericField(Query1.FieldByName('ORT')).DisplayFormat:='#,###'

qr de kullandığın component ne dbqrlabel mi yoksa qrlabel mi
eğer qrlabel kullanıyorsan olmaz
dbqrlabel kullanman lazım

[sword]

Queryde displayformat ile formatladım fakat quick Reporta gönderdiğimde tekrar formatsız şekline dönüşüyor...
(TnumericField(Query1.FieldByName('ORT')).DisplayFormat:='#,###'

qr de kullandığın component ne dbqrlabel mi yoksa qrlabel mi
eğer qrlabel kullanıyorsan olmaz
dbqrlabel kullanman lazım

procedure TForm39.BitBtn1Click(Sender: TObject);
var
aReport:TQuickRep;
FieldList:TStringList;
nidx:integer;
begin
FieldList:=nil;
with listbox1 do
if enabled then
begin
FieldList:=TStringList.Create;
for nidx:=0 to items.count-1 do
if selected[nidx] then
FieldList.Add(Items[nidx]);
end;
areport:=nil;
QRCreateList(TCustomQuickrep(aReport),Self,query1,'AYLIKÜCRET LİSTESİ',FieldList);
aReport.Preview;
aReport.Free;
if FieldList<> nil then
fieldList.Free;
end;

qreportu yukardaki gibi çalışma anında oluşturuyorum..

[ADNAN]

Query deki field inizi (ORT) displayformat ını #,##0.00 şeklinde belirtirseniz...

[ALUCARD]

bence bu tipmşeyleri runtime anında değilde tasarım anında oluşturmak daha mantıklı
şimdi raporu eğer tasarım anında oluşturursan böyle bi sorunun da kalmaz