TStringlist wie TIniFile

[Pr0g]

Die Daten werden intern einer THashedStringList gespeichert und das UpdateFile wird nur bei einer normalen TIniFile beim Freigeben aufgerufen, damit sollte es also keine Probleme geben. Hab noch nen Beispiel gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fIni: TMemIniFile;
  fStrings: TStrings;
begin
  fIni := TMemIniFile.Create('');
  try

    fStrings := TStringList.Create;
    try
      fStrings.Add('[test_section]');
      fStrings.Add('testkey=testvalue');

      //Stringliste übertragen
      fIni.SetStrings(fStrings);
    finally
      fStrings.Free;
    end;

    ShowMessage(fIni.ReadString('test_section', 'testkey', ''));

  finally
    fIni.Free;
  end;
end;