如下,不知对不对 for i:=1 to 20 do if (i是奇数) then font:=...; else font:=...;
输出每个字符到印机时,设置打印机字体,如: for i:=1 to 20 do begin if (i mod 2)<>0 then Printer.Canvas.Font.Style:=[fsBold] else Printer.Canvas.Font.Style:=[]; Printer.Canvas.TextOut(x,y,inttostr(i));//输出你的字符 end;
for i:=1 to 20 do
if (i是奇数) then
font:=...;
else
font:=...;
for i:=1 to 20 do
begin
if (i mod 2)<>0 then
Printer.Canvas.Font.Style:=[fsBold]
else
Printer.Canvas.Font.Style:=[];
Printer.Canvas.TextOut(x,y,inttostr(i));//输出你的字符
end;