用textfile文件类型来操作数据,
现在想 先定位到某一行,再改变改行中相应字段的值。
rewrite,reset,append 都不符合要求啊
用什么方式打开该文件呢?
现在想 先定位到某一行,再改变改行中相应字段的值。
rewrite,reset,append 都不符合要求啊
用什么方式打开该文件呢?
解决方案 »
- MYSQL的Blob字段的内容过长时无法完全保存成文件
- delphi 如何读取数字证书(.cer文件)的内容。
- 用什么工具做报表能自动换行打印的?谢谢
- 求助Delphi高手(图像处理的二个问题)
- 请问,dev express的dxDBTreeList与DataSource连接后如何让数据显示出来?
- ADVStringGrid如何用程序按某一列排序?
- 又一个关于dbExpress的问题
- 我用showwindow(另1个程序的application句柄,show_max...)为什么窗体无反映?
- 谁用过window ce下的数据库?????
- DLl Hook注入后 ,DLL里有个窗口,怎么让DLl里的窗口的线程和被注入的程序的线程不一样了?
- 小问题请进!!关于对话框
- 晕阿, 一个简单的回调函数居然报灾难性故障!
Reset(file);
想怎么改就怎么改,还可以把icon 改成bmp,很好玩的。
...
Memo1.Lines.SaveToFile('filename');
name1=1
pass1=a
name2=2
pass2=b
name3=3
pass3=c
现在想修改某一行的字段值,比如将name2的值改为20。或者删除中间的两行。关键是怎样定位到某一行,将该行的内容替换或者删除。
不知用writeln怎么实现,或者有其它更好的方法?
var
r1:Tfilestream;
a1:Tstringlist;
a2:string;
mpos,i:integer;
begin
a1:=Tstringlist.Create;
a1.LoadFromFile('e:\1.txt') ;
mpos:=pos('=',a1.Strings[1]);
a1.Strings[1]:=delete(a1.strings[1],mpos,1);//还有copy,insert函数可以用,
a1.SaveToFile('e:\1.txt');
a1.free;
大概就是这个样子了