tarih aralıgı

[sibbelistanbul]

arkadaşlar merhaba

datetimepicker da şeçilen tarih aralıklarını herhangi örg.label olabilir. Bu şekilde 01.01.2008 - 31.12.2008 nasıl yazdırabilirim

[Nick_]

Kod: Tümünü seç

procedure TForm1.DateTimePicker1Change(Sender: TObject);  //////////////////////////////
begin
Form1.Caption:=DateToStr(DateTimePicker1.Date);////
end;
end.

[sibbelistanbul]

teşekkür ederim biliyorum da iki tarih aralığı lazım o konuda yardımcı olabilirmisin?

[conari]

Kod: Tümünü seç

Form1.Caption:=DateToStr(DateTimePicker1.Date)+' ile '+DateToStr(DateTimePicker2.Date)+' aralığında';////

[sibbelistanbul]

arkadaşlar bunu rapor sayfasında göstermem gerek ve bir adet QRlabel var buraya tarihi atamıyorum işte, hata veriyor

bu kodu yazıyorum
procedure TFrmRadReportList.DateTimePicker1Change(Sender: TObject);
begin
FrmReport.QRLabel9.Caption:= DatetoStr(DateTimePicker1.Date);
end;
Tarihe dokundugum anda (eğiştirdiğim anda) hata veriyor
hata da çok uzun ya.
Project RadAnalyse.exe raised exception class EAcsessViolation with message Access violation at adress
00542D in modüle Rad.Analyse.exe read adress 000000388.

[hbahadir]

QRlabel 'ın olduğu forma erişim sağlayamıyorsundur. Bence rapor basıldığı anda ilgili bileşenin captionunu değiştir.

[sibbelistanbul]

Hallettim arkadaşlar, Form un cretinden sonra yapınca düzeldi değişkeni buraya koydum.

burada SQL ım var ....

ADOQuery1.Active:= False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(SS);
ADOQuery1.Active:=True;
Application.CreateForm(TFrmReport, FrmReport);
FrmReport.QRLabel9.Caption:= DatetoStr(Tarih); -------------yani bu kod doğru yerde oldugu için sorun kalmadı.
FrmReport.QRLabel15.Caption:=DatetoStr(Tarih2); ............. "" "" ""
FrmReport.QREP1.Preview;
FrmReport.Free;
end;

procedure TFrmRadiationReportList.DateTimePicker1Change(Sender: TObject);
begin
Tarih:=DateTimePicker1.Date;
Tarih2:=DateTimePicker2.Date;
end;