S sy_why Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-05 #3 我知道写数据 var f:textfile; pdstr:string; begin pdstr='写入数据'+chr(10); assignfile(f,'lpt1'); rewrite(f); //打开串口 write(f,pdstr);//向串口写数据 closefile(f);//关闭串口 end; 以上仅供参考
我知道写数据 var f:textfile; pdstr:string; begin pdstr='写入数据'+chr(10); assignfile(f,'lpt1'); rewrite(f); //打开串口 write(f,pdstr);//向串口写数据 closefile(f);//关闭串口 end; 以上仅供参考
