TIniFile umbiegen zu TIniMemFile

[Jim Carrey]

Ziemlich dumme Frage bitte verzeiht mir.
Aber gibt es eine Möglichkeit die Deklaration von TIniFile so umzubiegen, dass TMemIniFile benutzt wird und zusätzlich bei MeineIniDatei.Free; dann .UpdateFile + Free ausgeführt wird?

Was ich meine ist... ich möchte trotzdem überall TIniFile hinschreiben, es soll aber TMemIniFile benutzt werden und bei Free sollen 2 Aktionen ausgeführt werden.
Ich habe soetwas noch nie gemacht und weiß daher nicht ob es möglich ist.

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

[Jim Carrey]

Ohne euren Code gelesen zu haben, hier mal mein Versuch, damit ihr seht ich versuche es wenigstens

Delphi-Quellcode:

type
 TIniFile = class(TMemIniFile)
 
 public
  procedure Free; override;
 end;

procedure TIniFile.Free;
begin
 TMemIniFile.UpdateFile;
end;

[Fritzew]

Zitat von Benedikt Magnus:

Du könntest deine eigene Klasse von TMemIniFile ableiten:

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;

Entschuldige das ist Quatsch.

Wieso eine extra Procedure die nichts anderes macht als ein Destructor?

Eine Klasse die sich selber in einer Procedure/Function zerstört verletzt ja wohl alle OOP Regeln

[Jim Carrey]

Wieder etwas dazugelernt, danke euch

[Benedikt Magnus]

Zitat von Fritzew:

Entschuldige das ist Quatsch.

Wieso eine extra Procedure die nichts anderes macht als ein Destructor?

Eine Klasse die sich selber in einer Procedure/Function zerstört verletzt ja wohl alle OOP Regeln

Ganz einfach weil eine Prozedur das machen sollte, was ihre Bezeichnung aussagt. Und eine weitere Funktion an den Destruktor zu hängen finde ich unsauber.

Ich wüsste jetzt nicht, warum eine Prozedur "TueDiesUndFree" irgendeine Regel der OOP verletzen sollte...

Zitat von Jim Carrey:

Wieder etwas dazugelernt, danke euch

Achte nur auf das "inherited" in deinem Destruktor und dass du Destroy statt Free überschreibst.

[Fritzew]

Zitat von Benedikt Magnus:

Zitat von Fritzew:

Entschuldige das ist Quatsch.

Wieso eine extra Procedure die nichts anderes macht als ein Destructor?

Eine Klasse die sich selber in einer Procedure/Function zerstört verletzt ja wohl alle OOP Regeln

Ganz einfach weil eine Prozedur das machen sollte, was ihre Bezeichnung aussagt. Und eine weitere Funktion an den Destruktor zu hängen finde ich unsauber.

Ich wüsste jetzt nicht, warum eine Prozedur "TueDiesUndFree" irgendeine Regel der OOP verletzen sollte...

Zitat von Jim Carrey:

Wieder etwas dazugelernt, danke euch

Achte nur auf das "inherited" in deinem Destruktor und dass du Destroy statt Free überschreibst.

Ganz einfach

Deine klasse kann man nicht benutzen wie jede andere

normalerweise erwartet man nicht das eine Procedure die Klasse freigibt.

immer
1.create
2.arbeiten
3.freigeben

Delphi-Quellcode:

T := TIrgendwas.create;
try
  t.tuewas;
t.UpdateFileAndFree; // Du gibts die klasse frei
t.tuewasanders; // Knallt


finally
 t.free;
end;

Wenn Du das verhalten änderst ist das einfach falsch.
Wenn schon überschreibe den destructor.

[Benedikt Magnus]

Zitat von Fritzew:

Ganz einfach

Deine klasse kann man nicht benutzen wie jede andere

normalerweise erwartet man nicht das eine Procedure die Klasse freigibt.

immer
1.create
2.arbeiten
3.freigeben

Delphi-Quellcode:

T := TIrgendwas.Create;
try
  t.tuewas;
t.UpdateFileAndFree; // Du gibts die klasse frei
t.tuewasanders; // Knallt


finally
 t.free;
end;

Wenn Du das verhalten änderst ist das einfach falsch.
Wenn schon überschreibe den destructor.

Versuche es doch mal so:

Delphi-Quellcode:

T := TIrgendwas.create;
try
  T.TueEtwas;
  T.UpdateFile; 
  T.TueEtwasAnderes; 
finally
  T.UpdateFileAndFree;
end;

[Lemmy]

Zitat von Benedikt Magnus:

Ganz einfach weil eine Prozedur das machen sollte, was ihre Bezeichnung aussagt. Und eine weitere Funktion an den Destruktor zu hängen finde ich unsauber.

Tipp: Schau dir mal BeforeDestruction an, da musst Du weder den Destructor überschreiben noch eine eigene Methode einführen.

[Benedikt Magnus]

Zitat von Lemmy:

Zitat von Benedikt Magnus:

Ganz einfach weil eine Prozedur das machen sollte, was ihre Bezeichnung aussagt. Und eine weitere Funktion an den Destruktor zu hängen finde ich unsauber.

Tipp: Schau dir mal BeforeDestruction an, da musst Du weder den Destructor überschreiben noch eine eigene Methode einführen.

Danke!
Das löst aber nicht das Problem (weshalb ich ursprünglich auf die neue Methode kam), dass auf diese Weise etwas mitunter Unerwartetes beim Freigeben des Objektes passiert, das ich auch nicht mehr unterbinden kann.
Die von Uwe Raabe angesprochene Lösung mit AutoSave := true , wie sie in Berlin realisiert wurde, scheint mir daher die eleganteste zu sein. Nichts Unerwartetes, keine neuen Methoden.