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로 인쇄 하고 싶은데 위와 같이 에러가 납니다
잘 몰라서 질문올립니다...
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로 인쇄 하고 싶은데 위와 같이 에러가 납니다
> 잘 몰라서 질문올립니다...
>
>