var
I : Integer;
TextHeight : Integer;
begin
TextHeight := Printer.Canvas.TextHeight(Memo1.Lines.Text);Printer.BeginDoc;
try
for I := 0 to Memo1.Lines.Count - 1 do
Printer.Canvas.TextOut( 10, 10 + (I * TextHeight), Memo1.Lines[I] );
finally
Printer.EndDoc;
end;
end;
------------------------------
运行时说
[Error] Unit1.pas(65): Undeclared identifier: 'Printer'
但书上说有个函数,但这个函数在什么地方呢?
I : Integer;
TextHeight : Integer;
begin
TextHeight := Printer.Canvas.TextHeight(Memo1.Lines.Text);Printer.BeginDoc;
try
for I := 0 to Memo1.Lines.Count - 1 do
Printer.Canvas.TextOut( 10, 10 + (I * TextHeight), Memo1.Lines[I] );
finally
Printer.EndDoc;
end;
end;
------------------------------
运行时说
[Error] Unit1.pas(65): Undeclared identifier: 'Printer'
但书上说有个函数,但这个函数在什么地方呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货