TIniFile umbiegen zu TIniMemFile

[Fritzew]

Um das für mich abzuschließen

Delphi-Quellcode:

unit myini;

interface

uses
   sysutils,
   IniFiles;

type
   tinifile = class(tmeminifile)
   private
      fautosave: boolean;

   public
      constructor Create(const FileName: string; const autosave: boolean = true); overload;
      constructor Create(const FileName: string; const Encoding: TEncoding; const autosave: boolean = true); overload;
      destructor Destroy; override;
   end;

implementation

{ tinifile }

constructor tinifile.Create(const FileName: string; const Encoding: TEncoding; const autosave: boolean = true);
begin
   inherited Create(FileName, Encoding);
   fautosave := autosave;
end;

constructor tinifile.Create(const FileName: string; const autosave: boolean = true);
begin
   inherited Create(FileName);
   fautosave := autosave;
end;

destructor tinifile.Destroy;
begin
   if fautosave then
      UpdateFile;
   inherited;
end;

end.

Diese Unit überall da einbinden wo das neue verhalten gewünscht ist.

[hoika]

Hallo,
dieser Thread scheint der Nachfolger von diesem hier zu sein
http://www.delphipraxis.net/190773-p...ml#post1352810

Und im aktuellen Thread geht es um den Austausch von TIniFile durch TMemIniFile,
ohne den Quellcode zu ändern.
Die neue Klasse und das Einbinden als letzte Unit löst das ja am Besten,
Ob so eine Vorgehensweise gut ist, sei dahingestellt.

Wenn die Code-Stellen abzählbar sind,
kann ich ja gleich TMemIniFile schreiben.

[Rollo62]

Nur mal zum Verständnis:
Wenn du mit "umbiegen" meinst das diese neue TIniFile Klasse dann IMMER statt der alten aufgerufen wird,
egal wo und wann ...
Das wird nicht funktionieren.

Du musst immer deine neue Unit einbinden, also wozu dann den Namen gleich machen ?
Da würde ich schon eher ein IIniFile Interface anlegen, das würde mehr Sinn machen.

Rollo