计算机二级DELPHI:对文本文件进行写操作计算机二级考试

文章作者 100test 发表时间 2009:05:07 18:06:32
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
　　对文本文件进行写操作，当文本文件的文件名为“LPT”或“COM”等保留字里，即是对指定端口写。
　　my:=lpt1.
　　filehandle:=fileopen(my,fmopenwrite).
　　fileclose(filehandle).
　　if filehandle<.0 then
　　begin
　　messagebox(handle,lpt1错误,错误,mb_iconerror).
　　exit.
　　end
　　else
　　begin
　　assignfile(tf,my).
　　rewrite(tf).
　　writeln(tf,chr(27) chr(112) chr(0) chr(18) chr(22)).
　　with query1 do
　　begin
　　sql.Clear.
　　sql.Add(0select 企业名称 from 企业档案).
　　close.
　　open.
　　end.
　　writeln(tf, query1.fieldbyname(企业名称).AsString).
　　if strtofloat(label6.Caption)<.0 then
　　writeln(tf, 退货单)
　　else
　　writeln(tf, 销售单).
　　writeln(tf,流 水 号: form1.StatusBar1.Panels[1].Text).
　　writeln(tf,销售日期: datetimetostr(now)).
　　writeln(tf,收 款 员: form1.StatusBar1.Panels[3].Text).
　　writeln(tf,--------------------------------).
　　writeln(tf,商品编码 数量 单价 金额).
　　writeln(tf,--------------------------------).
　　for a:=1 to form1.StringGrid1.RowCount-2 do
　　begin
　　writeln(tf,form1.StringGrid1.Cells[2,a]).
　　writeln(tf,form1.StringGrid1.Cells[1,a] form1.StringGrid1.Cells[5,a] form1.StringGrid1.Cells[4,a] form1.StringGrid1.Cells[6,a]).
　　end.
　　writeln(tf,--------------------------------).
　　writeln(tf,合计金额: Label8.Caption).
　　writeln(tf,找零金额: label9.Caption).
　　writeln(tf,谢谢惠顾,欢迎下次光临).
　　writeln(tf,请妥善保管您的电脑小票).
　　writeln(tf,).
　　writeln(tf,).
　　writeln(tf,).
　　writeln(tf,).
　　writeln(tf,).
　　closefile(tf).

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总