5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
g58521547 2003-09-19
- 打赏
- 举报
同意
DY2003 2003-09-19
- 打赏
- 举报
FName:String;
F:TextFile;
....
AssignFile(F,FName);
Rewrite(F);
Writeln(F,TempString1);
Writeln(F,TempString2);
....
CloseFile(F);
F:TextFile;
....
AssignFile(F,FName);
Rewrite(F);
Writeln(F,TempString1);
Writeln(F,TempString2);
....
CloseFile(F);
lean77 2003-09-19
- 打赏
- 举报
给你一个例子参考，删除文件最后一行，写入内容：
//sFileName是txt文件的name
sl := TStringList.Create;
sl.LoadFromFile(sFileName);
sl.Delete(sl.Count-1);
//-----------------在txt文件中写入内容
Append(var F: Text);
Writeln([ var F: Text; ] P1 [, P2, ...,Pn ] );
//------------------
sl.SaveToFile(sFileName);
sl.Free;
随手写的，没有编译
//sFileName是txt文件的name
sl := TStringList.Create;
sl.LoadFromFile(sFileName);
sl.Delete(sl.Count-1);
//-----------------在txt文件中写入内容
Append(var F: Text);
Writeln([ var F: Text; ] P1 [, P2, ...,Pn ] );
//------------------
sl.SaveToFile(sFileName);
sl.Free;
随手写的，没有编译
