Q&A

  • DateTimePicker를 QuickReport로 인쇄 하고 싶은데요...
procedure Tah5300_f.PrintBitBtnClick(Sender: TObject);

begin

if MessageDlg(' 정말로 인쇄 합니까.?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

StartBitBtnClick(self);

S_QRlabel.Caption := itemCB.Text;

M_QRlabel.Caption := accCB.Text;

E_QRlabel.Caption := kubunCB.Text;

D_QRlabel.Caption := DateTimePicker1.Date; ←------[에러발생]

QuickRep1.Preview;

end;

end;



[Error]:Incompatible types: 'String' and 'TDate'



DateTimePicker를 QuickReport로 인쇄 하고 싶은데 위와 같이 에러가 납니다

잘 몰라서 질문올립니다...





1  COMMENTS
  • Profile
    이성훈 2001.07.03 21:46
    DateTimePicker1.Date는 Date형이어서 String으로 변환해주어야합니다

    D_QRlabel.Caption := FormatDateTime('YYYYMMDD', DateTimePicker1.Date);

    그럼 즐프하세요...

    xxx wrote:

    > procedure Tah5300_f.PrintBitBtnClick(Sender: TObject);

    > begin

    > if MessageDlg(' 정말로 인쇄 합니까.?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

    > begin

    > StartBitBtnClick(self);

    > S_QRlabel.Caption := itemCB.Text;

    > M_QRlabel.Caption := accCB.Text;

    > E_QRlabel.Caption := kubunCB.Text;

    > D_QRlabel.Caption := DateTimePicker1.Date; ←------[에러발생]

    > QuickRep1.Preview;

    > end;

    > end;

    >

    > [Error]:Incompatible types: 'String' and 'TDate'

    >

    > DateTimePicker를 QuickReport로 인쇄 하고 싶은데 위와 같이 에러가 납니다

    > 잘 몰라서 질문올립니다...

    >

    >