F
Fairys
Unregistered / Unconfirmed
GUEST, unregistred user!
各位编程高手：
我刚学BCB，这段DELPHI打印程序如何转成BCB？
procedure TForm1.btnPrintClick(Sender: TObject);
var
F:TextFile;
begin
AssignPrn(F);
ReWrite(F);
Printer.Canvas.Font.Size:=18;
Printer.Canvas.Font.Name:='黑体';
Writeln(F,'打印测试文字');
CloseFile(F);
end;
我刚学BCB，这段DELPHI打印程序如何转成BCB？
procedure TForm1.btnPrintClick(Sender: TObject);
var
F:TextFile;
begin
AssignPrn(F);
ReWrite(F);
Printer.Canvas.Font.Size:=18;
Printer.Canvas.Font.Name:='黑体';
Writeln(F,'打印测试文字');
CloseFile(F);
end;