Speicher Freigabe?

[Bernhard Geyer]

Zitat von msickel:

Kannst Du mir für das "cachen" ein Beispiel geben?

Einfach hier das Singleton-pattern anwenden

Delphi-Quellcode:

function GetLocator: ISWbemLocator;

implementation

var
  FLocal: ISWbemLocator;

function GetLocator: ISWbemLocator;
begin
  if not Assigned(FLocal) then
    FLocal := CoSWbemLocator.Create;

  result := FLocal;
end;