QuickRepor Da if(Query1.Kodu.length <3,1,0) olmadı bi tur

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
musti
Üye
Mesajlar: 527
Kayıt: 11 Tem 2005 09:44

QuickRepor Da if(Query1.Kodu.length <3,1,0) olmadı bi tur

Mesaj gönderen musti »

bir string alanımız var queryde onun uzunlugunu ve onu int bir sayiya cevrimeyi basaramdım.
Tabi Expression icine


QuickRepor Da if(Query1.Kodu.length <3,1,0) olmadı bi turlu


yada if( INT(Query1.Kodu) <3,1,0) BUDA olmadı

sizce boyle bir function yokmu
Kullanıcı avatarı
mucar
Kıdemli Üye
Mesajlar: 247
Kayıt: 17 May 2005 01:14

Mesaj gönderen mucar »

merhaba,

expressionlarda maalesef böyle bir fonksiyon yok. sorununuzu şu şekilde halledebilirsiniz.

Kod: Tümünü seç

procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin

if length(QuickRep1.DataSet.FieldByName('kodu').AsString)<3 then
QRLabel1.caption:='1'
else
QRLabel1.caption:='0';

end;
Detail banda QRExpr yerine bir tane QRLabel koyup detail bandın BeforePrint olayına yukarıdaki kodu yazın. (tabi Quickrep1 nesnesinin dataseti Query1 olarak ayarlanmış olmalı.)

Kolay gelsin.
"Evine bakmaktan aciz olan; ilerici, üç kıtaya hükmeden ecdadın mı gerici?"
Kullanıcı avatarı
musti
Üye
Mesajlar: 527
Kayıt: 11 Tem 2005 09:44

Mesaj gönderen musti »

tsk ederim
ama fastreporta gecmeye karar verdim.
Cevapla