Re: Vererbung
Ich habe das Problem jetzt erkannt. :bounce2:
Ursprünglich habe das Problem so gemein, wie es r2c2 verstanden hat. Die Lösung und die kleinen Beispiele haben mir sehr geholfen. Manchmal ist man etwas :wall: Ich danke Euch ganz herzlich r2c2,sh17,Der_Unwissende. |
Re: Vererbung
Zitat:
Delphi-Quellcode:
Ist natürlich nicht vollständig, man sollte tunlichst drauf achten, zu zählen wieviele Verweise es gibt und dafür sorgen, dass wenn es keinen mehr gibt, die Instanz auch wieder freigegeben wird. Das fehlt hier natürlich komplett, aber über die getInstance kann man sich so immer das eine globale Objekt holen, es wäre bei jedem Aufruf das einzigste.
type
TExampleClass = class(TObject) private // Fields protected // Fields constructor create; public // Fields class function getInstance : TExampleClass; end; implementation var ExampleClassInstance : TExampleClass; class function TExampleClass.getInstance : TExampleClass; begin if not assigned(ExampleClassInstance) then begin ExampleClassInstance := TExampleClass.Create; end; result := ExampleClassInstance; end; Gruß Der Unwissende |
Re: Vererbung
Zitat:
mfg Christian |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:32 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz