Delphi 中打开文件 ,插入字段,保存文件 问题 (50分)

  • 主题发起人 主题发起人 lisam
  • 开始时间 开始时间
L

lisam

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi 如何中打开文件 ,插入字段,保存文件?

我是一个XML文件,纯文本的。


 
就是打开 1.txt 文件

1.txt有以下内容
--------
这是个范例
---------
然后将 '插入文字'写入1.txt

最后的结果是

1.txt内容如下
----------
这是个范例
插入文字
----------

就这么简单,其中’--------‘是文本里不出现的。

 
有没有高手能回答这个问题?另外,怎样才能把文件改名后另外存盘?
 
高手?高手!,高手你在那里啊~~
 
procedure TForm1.Button1Click(Sender: TObject);
var FLTxt:textfile;
begin
assignfile(FLTxt,'c:/SH.TXT');
append(FLTxt);
write(FLTxt,#$D+#$A+'你的文字');
closefile(FLTxt);
end;
 
用TXMLDocument组件来写阿
 
怎样才能把文件改名后另外存盘?
var
aa: TMemoryStream;
begin
aa := TMemoryStream.Create;
try
aa.Loadfromfile('asdf.txt');
aa.SaveToFile('bbb.txt');
finally
aa.Free;
end;
end;

插入字段,保存文件.
我也没有更好的办法,如果你能知道在第几行,用苯的办法。如下
读入部分到 MemoryStream 中,读入要插入的内容,把剩余的部分读入
依照上面的办法存盘

 
接受答案了.
 
后退
顶部