Eine Ini-Section in ein andere Ini kopieren

[SneakyBagels]

Ich bin mir schon gar nicht mehr sicher was ich alles probiert habe aber das hilft glaube ich auch nicht.
Gibt es hier nix einfaches ohne Kopfschmerzen?

Weil ReadSection holt mir nur die Titel jeder Section nicht aber den Inhalt. GetStrings holt mir wirklich alles aber damit kann man auch nix anfangen da ich absolut keine Ahnung habe wie man da durchparst.

Da muss es doch was einfaches, sehr kurzes knackiges geben um eine Section von Ini-1 in Ini-2 zu bringen!

[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;