| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/5/31 15:14:58 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我写的一个备份过程 ，为什么在 APPEND（F）这一步老报错呢 [Error]UnitMyself.pas[200]:Too Many Actual parameters procedure TFormMyself.BitBtnBackupClick(Sender: TObject); var F:TextFile; Filename:string; Station, ID,PWD,DT,PlayType,Code,LyCode,DQ,Beget,Flag:string; backup_str:string; sale:integer; tablename: string; begin tablename:='CurrentTerm.txt' ; with ADOQuery_CXXX do begin FileName :=tablename+'.txt'; Close; SQL.Clear; SQL.Add('select * from CurrentTerm'); try Open; First; while not ADOQuery_CXXX.Eof do begin Station := ADOQuery_CXXX.Fields.Fields[0].AsString; ID := ADOQuery_CXXX.Fields.Fields[1].AsString; PWD := ADOQuery_CXXX.Fields.Fields[2].AsString; DT := ADOQuery_CXXX.Fields.Fields[3].AsString; PlayType := ADOQuery_CXXX.Fields.Fields[4].AsString; Code := ADOQuery_CXXX.Fields.Fields[5].AsString; LyCode := ADOQuery_CXXX.Fields.Fields[6].AsString; DQ := ADOQuery_CXXX.Fields.Fields[7].AsString; Beget := ADOQuery_CXXX.Fields.Fields[8].AsString; Flag := ADOQuery_CXXX.Fields.Fields[9].AsString; Backup_str := Station+','+ID+','+PWD+','+DT+','+PlayType+','+Code+','+LyCode+','+DQ+','+Beget+','+Flag; try AssignFile(F,FileName); try if NOT FileExists(FileName) then ReWrite(F) else Append (F); WriteLn(F,Backup_str); finally CloseFile(F); end; except ; end; ADOQuery_CXXX.Next; end; finally ADOQuery_CXXX.Close; end; end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/31 17:14:03 | ||||
| 1楼： | 自己顶一下 希望高手能给讲讲！！谢谢 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/31 21:38:57 | ||||
| 2楼： | append 一般要打开只写文件，并制向文件的末尾，你的文件打开了吗？我怎么没有看到？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/6/2 10:09:49 | ||||
| 3楼： | 为什么我以前写的也是这样 旧没有类似问题 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/6/2 10:53:23 | ||||
| 4楼： | AssignFile(F,FileName); if FileExists(FileName) then Append(F) else Rewrite(F); write(F,Memo1.Text); Flush(F); CloseFile(F); 看不出来你的错误，我要继续睡觉了。 ---------------------------------------------- 维护世界和平，共创美好盒子。 |
|||||
| 作者： |
|
2003/6/2 15:48:58 | ||||
| 5楼： | 孜孜 睡行了没有 这个程序我把他们中的数据库部分和文件部分分开编译都能通过，但合在一起就老是[Error]UnitMyself.pas[200]:Too Many Actual parameters 以你的丰富经验 能给我一些指点吗 谢谢 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/6/3 20:18:30 | ||||
| 6楼： | AssignFile(F,FileName); try if NOT FileExists(FileName) then ReWrite(F) else //加上 begin //先打开一个已存在的文件 Reset(F); Append (F); END; WriteLn(F,Backup_str); finally CloseFile(F); ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
