Help Script object ...
if meet this case
procedure tform1.frreport1beforeprint(memo: tstringlist; view: tfrview);
var nMemo1 : tfrmemoview;
begin
nmemo1 := frreport1.findobject('memo1') as tfrmemoview;
if view.name = 'Picture1' then
tfrpictureview(view).picture.loadfromfile('c:\test'+nmemo1.memo.text+'.bmp');
end;
i want to view my picture that file name combine with my data field value in freport memo1, but that error show = 'cannot open file "c:\test[query1."ID"].bmp" '
what's wrong? can somebody help me/
thanks
procedure tform1.frreport1beforeprint(memo: tstringlist; view: tfrview);
var nMemo1 : tfrmemoview;
begin
nmemo1 := frreport1.findobject('memo1') as tfrmemoview;
if view.name = 'Picture1' then
tfrpictureview(view).picture.loadfromfile('c:\test'+nmemo1.memo.text+'.bmp');
end;
i want to view my picture that file name combine with my data field value in freport memo1, but that error show = 'cannot open file "c:\test[query1."ID"].bmp" '
what's wrong? can somebody help me/
thanks
Comments