So könnte es gehen. Du brauchst allerdings die
EasyIniAppExe von hier. Du kannst es aber auch umschreiben und es mit normaler IniFiles Unit machen.
Funktionieren tut das Beispie, hab es gerade getestet. Es wird eine neue Sektion erstellt und mit den Daten der alten Sektion gefüllt und dann wird die alte Sektion gelöscht.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
SectionAlt, SectionNeu: String;
i: Integer;
begin
sl := TStringList.Create;
try
SectionAlt := 'Item92';
SectionNeu := 'Item91';
ReadIniSection(SectionAlt, sl);
for i := 0 to sl.Count - 1 do
WriteIniString(SectionNeu, sl[i], ReadIniString(SectionAlt, sl[i], ''));
EraseIniSection(SectionAlt);
finally
sl.Free;
end;
end; |
