function wwwfile(file1,files:String):boolean; var s1,s2:TStringList; i:integer; begin result:=True; s1:=TStringList.create; s2:=TStringList.Create; s1.loadfromfile(file1); s2.loadfromfile(file2); for i:=0 to s1.count-1 do s2.add(s1.strings[i]); s2.savetofile(file2); s1.free; s2.free; end;
如果两个ini内容又重复的,你就用tinifile读出来,挨个判断,看你怎么处理重复的内容了
ReadString,WriteString,
估計你遇到的問題就是:不知有哪些Section,有哪些值。所你你只有一行行扫描,去解析出这些东东了。
var
s1,s2:TStringList;
i:integer;
begin
result:=True;
s1:=TStringList.create;
s2:=TStringList.Create;
s1.loadfromfile(file1);
s2.loadfromfile(file2);
for i:=0 to s1.count-1 do
s2.add(s1.strings[i]);
s2.savetofile(file2);
s1.free;
s2.free;
end;
s2.savetofile(file2);
不就可以了,干嘛弄这么多行?