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; //泽放流文件
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; //泽放流文件
beginassignfile(fp,'c:/aa.txt');
append(fp);write(fp,.....);CloseFile
end;
F: TextFile;
begin
if OpenDialog.execut then
begin
AssignFile(F, FileName);
Append(F);
Writeln(F, '增加一行');
CloseFile(F);
end;