procedure TForm1.BtnPrintClick(Sender:TObject);
var
i:Integer;
pf:TextFile;
begin
inherited;
if PrintDialog1.Execute then
begin
AssiagnPrn(pf);
Rewrite(pf);
try
Printer.Canvas.Font:=Memo1.Font;
for i:=0 to Memo1.Lines.Count-1 do
writeln(pf,Memo1.Lines[i]);
finally
CloseFile(pf);
end;
end;
end;
var
i:Integer;
pf:TextFile;
begin
inherited;
if PrintDialog1.Execute then
begin
AssiagnPrn(pf);
Rewrite(pf);
try
Printer.Canvas.Font:=Memo1.Font;
for i:=0 to Memo1.Lines.Count-1 do
writeln(pf,Memo1.Lines[i]);
finally
CloseFile(pf);
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货