rt
如:
function CharHeight:Word;
var
MyMetrics:TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle,MyMetrics);
Result := MyMetrics.tmHeight;
end;说:MyMetrics
illegal character in input file "$A1A1"
这是怎么回事?
如:
function CharHeight:Word;
var
MyMetrics:TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle,MyMetrics);
Result := MyMetrics.tmHeight;
end;说:MyMetrics
illegal character in input file "$A1A1"
这是怎么回事?
问题出在你可能是从哪复制的代码,其中有隐藏的非法字符。
function CharHeight:Word;
var
MyMetrics:TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle,MyMetrics);
Result := MyMetrics.tmHeight;
end;