TIniFile umbiegen zu TIniMemFile

[Benedikt Magnus]

Du könntest deine eigene Klasse von TMemIniFile ableiten:

Delphi-Quellcode:

interface

type
  TMeineIniFile = class(TMemIniFile)
  public
    destructor Destroy; override;
  end;

implementation

destructor TMeineIniFile.Destroy;
begin
  UpdateFile;
  inherited;
end;

Dann müsstest du allerdings "TMeineIniFile" statt "TIniFile" schreiben...


Edit: Gerade eingefallen, besser wäre natürlich so etwas:

Delphi-Quellcode:

interface

type
  TMeineIniFile = class(TMemIniFile)
  public
    procedure UpdateFileAndFree;
  end;

implementation

procedure TMeineIniFile.UpdateFileAndFree;
begin
  UpdateFile;
  Free;
end;