Question

delphi语言中，如何读入指定txt文件并替换每行行首？

要求：
手动输入文本文件路径后，运行代码，则自动在指定路径的文件的每行行首添加一个符号“●”（引号不添加）？

我是初学delphi的 问题很简单 答对的话加10分

Answer 1

实际上做的步骤是复制一份新文件，复制的时候添加，复制完毕以后修改文件名，一般步骤如下：
定义：
var oldfile, newfile: textfile; oldname, newname, line: string;
参数：
oldname:='文件名';
newname:='文件名.new';
语句：
assign(oldfile, oldname); reset(oldfile);
assign(newfile, newname); rewrite(newfile);
while not eof(oldfile) do
begin
readln(oldfile, line);
writeln(newfile, '●', line);
end;
closefile(oldfile);
closefile(newfile);
rename(oldname, oldname+'.bak');
rename(newname, oldname);