如何在delphi中修改文本文件

wkh8011 2007-08-10 12:37:37

如何在delphi中修改文本文件中某行的内容，例如：查找某行内容为“aaa”，修改它为“ggg”，请给出例子，谢谢

...全文

397 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

brightyang 2007-08-10

打赏
举报

var
liTemp: integer;
begin
liTemp := 0;
with TStringList.Create do
begin
try
LoadFromFile(Your File);
for liTemp := 0 to Count - 1 do
begin
if Strings[liTemp] = "aaa " then
Strings[liTemp] := "ggg ";
end;
SaveToFile(Your File);
finally
Free;
end;
end;
end;

zbdenghu 2007-08-10

打赏
举报

路过

zwylly99 2007-08-10

打赏
举报

var
liTemp: integer;
begin
liTemp := 0;
with TStringList.Create do
begin
try
LoadFromFile(Your File);
for liTemp := 0 to Count - 1 do
begin
if Strings[liTemp] = 'aaa' then
Strings[liTemp] := 'ggg';
end;
SaveToFile(Your File);
finally
Free;
end;
end;
end;