Delphi中有没有函数可以逐行清除TXT文件
展开全部
没弄明白楼上的意思。写几行代码楼主看罢
const txtFN:string = 'C:\test.txt';//要清除的文件
begin
with TStringlist.create do
begin
LoadFromFile(txtFN);
Clear;//一下清空
//循环一行一行删除
// for i:=0 to Count-1 do
//begin
// Delete(0);
//end;
SavetoFile(txtFN);
end;
end;
const txtFN:string = 'C:\test.txt';//要清除的文件
begin
with TStringlist.create do
begin
LoadFromFile(txtFN);
Clear;//一下清空
//循环一行一行删除
// for i:=0 to Count-1 do
//begin
// Delete(0);
//end;
SavetoFile(txtFN);
end;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
