L lisam Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-25 #1 Delphi 如何中打开文件 ,插入字段,保存文件? 我是一个XML文件,纯文本的。
L lisam Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-25 #2 就是打开 1.txt 文件 1.txt有以下内容 -------- 这是个范例 --------- 然后将 '插入文字'写入1.txt 最后的结果是 1.txt内容如下 ---------- 这是个范例 插入文字 ---------- 就这么简单,其中’--------‘是文本里不出现的。
就是打开 1.txt 文件 1.txt有以下内容 -------- 这是个范例 --------- 然后将 '插入文字'写入1.txt 最后的结果是 1.txt内容如下 ---------- 这是个范例 插入文字 ---------- 就这么简单,其中’--------‘是文本里不出现的。
L lotusxp Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-25 #3 有没有高手能回答这个问题?另外,怎样才能把文件改名后另外存盘?
S sydan Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-25 #5 procedure TForm1.Button1Click(Sender: TObject); var FLTxt:textfile; begin assignfile(FLTxt,'c:/SH.TXT'); append(FLTxt); write(FLTxt,#$D+#$A+'你的文字'); closefile(FLTxt); end;
procedure TForm1.Button1Click(Sender: TObject); var FLTxt:textfile; begin assignfile(FLTxt,'c:/SH.TXT'); append(FLTxt); write(FLTxt,#$D+#$A+'你的文字'); closefile(FLTxt); end;
D dxymzj Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-25 #7 怎样才能把文件改名后另外存盘? var aa: TMemoryStream; begin aa := TMemoryStream.Create; try aa.Loadfromfile('asdf.txt'); aa.SaveToFile('bbb.txt'); finally aa.Free; end; end; 插入字段,保存文件. 我也没有更好的办法,如果你能知道在第几行,用苯的办法。如下 读入部分到 MemoryStream 中,读入要插入的内容,把剩余的部分读入 依照上面的办法存盘
怎样才能把文件改名后另外存盘? var aa: TMemoryStream; begin aa := TMemoryStream.Create; try aa.Loadfromfile('asdf.txt'); aa.SaveToFile('bbb.txt'); finally aa.Free; end; end; 插入字段,保存文件. 我也没有更好的办法,如果你能知道在第几行,用苯的办法。如下 读入部分到 MemoryStream 中,读入要插入的内容,把剩余的部分读入 依照上面的办法存盘