procedure TForm1.BitBtn1Click(Sender: TObject);
Var
F:TextFile;
begin
AssignFile(F,'LPT1');
Rewrite(F);
Write(F, CHR(27)+CHR(112)+CHR(0)+CHR(50)+CHR(200));
CloseFile(F);
end;还有,就是DELPHI里的CHR(0)是否认啊?CHR()有无数值限制?
Var
F:TextFile;
begin
AssignFile(F,'LPT1');
Rewrite(F);
Write(F, CHR(27)+CHR(112)+CHR(0)+CHR(50)+CHR(200));
CloseFile(F);
end;还有,就是DELPHI里的CHR(0)是否认啊?CHR()有无数值限制?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货