delphi 如何在 已有的 ini 文件后，继续写入内容（不删除原来的内容）

[qq_43030681]

delphi 如何在 已有的 ini 文件后，继续写入内容（不删除原来的内容）

[qq_43030681]

它本身 的 读写 就是 覆盖 并非 再建

[lao_yunger]

var
TextFileVar: Text ;　
........
AssignFile ：把一个外部文件名和一个文件变量相关联

Reset ：打开一个存在的文件

Rewrite ：创建并打开一个新文件（或覆盖原有文件）

Append ：以添加方式打开一个文件（只适用于文本文件）

CloseFile ： 关闭一个打开的文件

FileOpen ：打开一个特定的文件并返回文件句柄

FileCreate ：创建一个给定文件名的文件并返回文件句柄

FileClose ：关闭一个特定句柄的文件　

后边三个文件主要供系统内部使用，在文件复制的编程中也往往会用到。它们操作的对象是文件句柄而不是文件变量



或
var
lst:Tstringlist;
begin
lst:=tstringlist.Create;
lst.LoadFromFile();
lst.Append( 'A=b');
lst.SaveToFile();
end;

[天行归来]

TIniFile 这个类就是针对 ini 文件进行操作

[nongen]

f:=tinifile.create(path+'\config.ini');
f.WriteString('LinkInfo','Server',s);
f.Free;

[zzlovelyboy]

引用 4 楼 nongen 的回复:

f:=tinifile.create(path+'\config.ini');
f.WriteString('LinkInfo','Server',s);
f.Free;

正解

[victor_yang]

ini中截取一段来讲讲

[CSYQ]
UserID=9CC2C196-C6D6-49ED-962E-6A98FEF9A4E2
DBAcc=CSYQ
ClientWidth=Max
Header=1

REG_SECTION:='CSYQ'; //只要这个节点名称不同，你就可以在原有的ini里添加

GV_IniFileName:=ExtractFilePath(Application.ExeName)+'Config.ini';
GV_IniFile:=TIniFile.Create(GV_IniFileName);

if not GV_IniFile.SectionExists(REG_SECTION) then //判断你要加的节点在不在里面
begin
GV_IniFile.WriteInteger(REG_SECTION,'ClientWidth',Self.ClientWidth);
GV_IniFile.WriteInteger(REG_SECTION,'ClientHeight',Self.ClientHeight);
end;