Código Delphi [-] var Prn: TextFile; begin AssignPrn(Prn); Rewrite(Prn); Writeln(Prn, Chr(209)); CloseFile(Prn); end;
var Prn: TextFile; begin AssignPrn(Prn); Rewrite(Prn); Writeln(Prn, Chr(209)); CloseFile(Prn); end;