如何在文本文件中的最后一行插入字符

Question

RT

Answer 1

var
HFile:TFileStream; //创建流文件
info_temp:array[0..100] of Char; //写入的内容的量大长度
FileName:string;
ls_value:string;
begin
FileName:='c:\Add_Test.txt'; //指定TXT文件的路径
if FileExists(FileName) then
HFile:=TFileStream.Create(FileName,fmOpenWrite or fmShareDenyRead) //若文件存在,则打开
else
HFile:=TFileStream.Create(FileName,fmCreate or fmShareDenyRead); //若文件不存在,则创建HFile.Seek(0,soFromEnd); //移到文件尾
ls_value:=edit1.Text+#13+#10; //添加后自动回车
StrlCopy(info_temp,Pchar(ls_value),100);
HFile.Write(info_temp,Length(ls_value)); //写TXT文件
HFile.Free; //泽放流文件

Answer 2

beginassignfile(fp,'c:/aa.txt');
append(fp);write(fp,.....);CloseFile
end;

Answer 3

var
F: TextFile;
begin
if OpenDialog.execut then
begin
AssignFile(F, FileName);
Append(F);
Writeln(F, '增加一行');
CloseFile(F);
end;