Funktion mit variabler Übergabe

[dizzy]

Du kannst alles auf TObject casten, welches der gemeinsame Vorfahre aller Klassen in Delphi ist, und bereits die MEthode Free implementiert.

Delphi-Quellcode:

procedure FreeThis(obj: TObject);
begin
  obj.Free;
end;

// Aufruf:
var
  btn: TButton;
begin
  btn := TButton.Create(nil);
  FreeThis(TObjcet(btn));
end;

Der Cast im Aufruf kann imho auch weg bleiben - habs grad nicht getestet, aber eigentlich sollte es auch gehen.


Gruss,
Fabian