Eine Ini-Section in ein andere Ini kopieren

[Uwe Raabe]

Zitat von SneakyBagels:

Weil ReadSection holt mir nur die Titel jeder Section nicht aber den Inhalt.

Genauer: ReadSection holt die Name-Werte der angegebenen Section.

Aber für deinen Zweck gibt es ja auch ReadSectionValues.

Die Kopiere Methode könnte dann so aussehen:

Delphi-Quellcode:

procedure kopiere( mi1, mi2 : TMemIniFile; sec : string );
var 
  hs : TStringList;
  i: Integer;
begin
  hs := TStringList.Create;
  try
    mi1.ReadSectionValues( sec, hs );
    mi2.EraseSection(sec);  // falls der aktuelle Inhalt nicht erhalten bleiben soll

    for i := 0 to hs.Count-1 do
    begin
      mi2.WriteString( sec, hs.Names[i], hs.ValueFormIndex[I] );
    end;

  finally
    hs.free;
  end;
end;