| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/20 14:20:26 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我编程可以往某个.txt文件中写入edit1里的内容，但是我想每写一次就回车一次的那种，就是说如下的样子 1111111 22222 3333333333333 4444 这样我就可以随时写入并可以向日志文件一样随时查看一前的记录 高手指点~·！ ----------------------------------------------  |
|||||
| 作者： |
|
2004/2/20 14:24:55 | ||||
| 1楼： | #13#10 表示回车换行 ----------------------------------------------  
|
|||||
| 作者： |
|
2004/2/20 14:35:24 | ||||
| 2楼： | writeln(ft,edit1.text); ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 14:43:09 | ||||
| 3楼： | ft是什么意思？ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 14:43:57 | ||||
| 4楼： | bios大哥你那个#13在写入文件的时候有用吗？我去试下先 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 14:47:00 | ||||
| 5楼： | var ft:textfile; assignfile(ft,'filename.txt'); {$I-} append(ft); if IOResult<>0 then rewrite(ft); writeln(ft,edit1.text); closefile(ft); ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 14:49:59 | ||||
| 6楼： | #13#10 两个要都写 如果你只写一个#13 是不够的！ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:08:29 | ||||
| 7楼： | long,readin : textfile; s,a: string; begin assignfile(long,'log.log'); reset(long); readln(long,s); closefile(long); a:= edit1.text+#13#10+s; assignfile(readin,'log.log'); rewrite(readin); writeln(readin,a); closefile(readin); 我是这么写的 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:09:10 | ||||
| 8楼： | 但是出了个问题，最多显示2行啊怎么会这样呢？ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:10:34 | ||||
| 9楼： | {$I-} append(ft);和if IOResult<>0 then rewrite(ft); 这两句有什么意思？ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:16:00 | ||||
| 10楼： | 你前面的那个还可以，后面这个就不行了 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:20:06 | ||||
| 11楼： | 啊，帖子不见了，不管了，解释下9楼的2句什么意思嘛大哥？ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:23:28 | ||||
| 12楼： | 你的程序写入时会把以前的写到最前面，最近写入的在最后面，有方法掉个头么？ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:33:17 | ||||
| 13楼： | 烦您加个控件 Memo1:TMemo; Memo1.Lines.LoadFromFile('log.log'); Memo1.Lines.Insert(0,edit1.text); Memo1.Lines.SaveToFile('log.log'); ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 15:36:53 | ||||
| 14楼： | 偶不明白为什么，比《拍图技术》简单的事情你反而做的这么累
|
|||||
| 作者： |
|
2004/2/20 15:47:56 | ||||
| 15楼： | 这样啊，我是说只要用一个edit，然后按一个按钮，edit的东西存储到log中，当下次输入edit时，变成 newedit.text oldedit.text olderedit.text oldestedit.text log的内容变成以上这种格式，而不用其他东西 还有啊，偶是菜鸟啊，不是高手，所以做所有的程序都很费力呢 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:49:54 | ||||
| 15楼： | to bios:我一直关注着您的拍图.我只有一瓶底的水,晃不出声来.见笑了. ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 15:53:46 | ||||
| 16楼： | 偶连瓶底都盖不住呢：（ 不过偶在努力呢 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:55:09 | ||||
| 16楼： | ： long,readin : textfile; s,a: string; begin s:='; assignfile(long,'log.log'); {$I-} reset(long); if IOResult=0 then begin while not eof(ft) do begin readln(long,a); s:=s+#13#10+a end; closefile(long); end; assignfile(readin,'log.log'); rewrite(readin); writeln(readin,edit1.text); if s>' then writeln(readin,s); closefile(readin); ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 15:56:01 | ||||
| 17楼： | 想用最简单的方法处理这个写入问题，因为我想用这个做个自动写日志的程序，因为主机要一直运行很多程序，象这些小程序也要随着机器一直运行，所以这个日志问题当然越小，越不占内存才好 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 15:57:55 | ||||
| 18楼： | bjdribllec大哥您要考虑下偶的感受嘛，那个 {$I-} append(ft);和if IOResult<>0 then rewrite(ft)有什么意义啊？不懂呢 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 16:02:03 | ||||
| 19楼： | 您把您的文件log.log删掉(改名也可),再运行您的程序,reset会报错的(文件不存在,不能打开),{$I-} 用于出错处理; ioresult=0表示文件IO操作成功. ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/20 16:02:23 | ||||
| 19楼： | bjdribllec 非常感谢老大关心，真不知如何报答！？ {$I-}I/O接口编译预处理指令，如果指令反馈I/O读写正常就重新调整文件 开始写吧 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 16:07:18 | ||||
| 20楼： | 哦，收到，多谢，偶再试下 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 16:41:27 | ||||
| 21楼： | 原来是加了回车后就不能成为一个string了，那么我的赋值就出问题了，所以只有2行了？ ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 17:44:09 | ||||
| 22楼： | 那位大哥可以告诉我那里有pascal语言方面的东西下载呀！ ---------------------------------------------- --------------------------- ||||知已知彼,百战不殆!||||| --------------------------- 努力学习,天天向上! -----------冰人吻语 IP:xxx.xxx.xxx.xxx |
|||||
| 作者： |
|
2004/2/20 17:56:46 | ||||
| 23楼： | bren http://bbs.2ccc.com/topic.asp?topicid=64546自己看 ----------------------------------------------
|
|||||
| 作者： |
|
2004/2/20 19:03:40 | ||||
| 24楼： | 学习！！！ ---------------------------------------------- 
|
|||||
| 信息 |
| 登陆以后才能回复 |
