大家好
我現在網上找到一段代碼,來實現fastreport 打印固定格式的代碼。但運行時總會出錯。代碼如下:
procedure TForm1.frxReport1ManualBuild(Page: TfrxPage);
var
i,j,k:Integer;
begin
k:=trunc(frxDBbomb.DataSource.DataSet.RecordCount/6);
Sender.ShowBandByName('reporttitle1');
for i := 0 to k do
begin
Sender.ShowBandByName('masterdata2');
for j := 1 to 6 do
begin
if not frxDBBomb.Eof then
begin
Sender.ShowBandByName('DetailData1');
frxDBBomb.Next;
end
else
sender.ShowBandByName('child1');
end ;
if i <> k then
Sender.NewPage;
end;
end;
總是會出錯:
1)[Error] Unit1.pas(75): Illegal character in input file: ' ' ($A140)
2)[Error] Unit1.pas(76): Undeclared identifier: 'Sender'
請大家幫我查一下問題出在那裏!多謝!
我現在網上找到一段代碼,來實現fastreport 打印固定格式的代碼。但運行時總會出錯。代碼如下:
procedure TForm1.frxReport1ManualBuild(Page: TfrxPage);
var
i,j,k:Integer;
begin
k:=trunc(frxDBbomb.DataSource.DataSet.RecordCount/6);
Sender.ShowBandByName('reporttitle1');
for i := 0 to k do
begin
Sender.ShowBandByName('masterdata2');
for j := 1 to 6 do
begin
if not frxDBBomb.Eof then
begin
Sender.ShowBandByName('DetailData1');
frxDBBomb.Next;
end
else
sender.ShowBandByName('child1');
end ;
if i <> k then
Sender.NewPage;
end;
end;
總是會出錯:
1)[Error] Unit1.pas(75): Illegal character in input file: ' ' ($A140)
2)[Error] Unit1.pas(76): Undeclared identifier: 'Sender'
請大家幫我查一下問題出在那裏!多謝!
2sender是指page,将它换成page