在一个unit中定义了几个函数，其中用到了Printer,但是我在其中定义的几个变量不能用〉

[fansnaf]

rt
如：
function CharHeight:Word;
var
　MyMetrics:TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle,MyMetrics);
　Result := MyMetrics.tmHeight;
end;

说：MyMetrics
illegal character in input file "$A1A1"
这是怎么回事？

[guestman]

好了，你把下面代码复制过去就行了！
问题出在你可能是从哪复制的代码，其中有隐藏的非法字符。
function CharHeight:Word;
var
MyMetrics:TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle,MyMetrics);
Result := MyMetrics.tmHeight;
end;

[fansnaf]

多谢！