ini-Sektor auslesen und addieren

[NicNacMan]

hi,
is ja n netter kleiner roman geworden

du kannst alle einträger einer section auslesen, und sie dann einzelnd in eine neue schreiben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  srcsection, dessection, eintrag, wert: String;
  tmplist: TStrings;
begin
  srcsection := 'bla1';
  dessection := 'bla2';
  myini := TINIFile.Create('C:\test.ini');
  tmplist := TStringList.Create;
  try
    myini.ReadSection(srcsection, tmplist);
    for i := 0 to Pred(tmplist.Count) do
      begin
        eintrag := tmplist.Strings[i];
        wert := myini.ReadString(srcsection, eintrag, '');
        myini.WriteString(dessection, eintrag, wert);
      end;
  finally
    tmplist.Free;
    myini.free;
  end;
end;

wenn die einträge schon vorhanden sind, werden sie einfach überschrieben