![]() |
Re: instanz nach fehlerprüfung rückgängig machen
Moin Raik,
Du kannst mit einer class function aber nicht auf Felder der Klasse zugreifen. Woher willst Du also den Zähler haben. Bleibt Dir eigentlich nur ein Wrapper Objekt zu erstellen, dass die Verwaltung der Instanzen übernimmt, und somit über einen Zähler verfügen kann. |
Re: instanz nach fehlerprüfung rückgängig machen
jetzt ist natürlich die frage in welcher reihenfolge eine instanz erstellt wird. denn als erstes wird create erstellt und das kann ich ja nur mit einer exception unterbrechen. :spin2:
|
Re: instanz nach fehlerprüfung rückgängig machen
Moin Raik,
so wie ich mir das gedacht hatte nicht. Du hast ein Wrapper Objekt, dass einmalig erzeugt wird. Diesem übergibst Du nun den Auftrag, via Methode, ein Objekt zu erzeugen, die Methode prüft dann vorher, ob das überhaupt noch sein darf, und gibt Dir ggf. einen Fehlercode zurück. |
Re: instanz nach fehlerprüfung rückgängig machen
hallo chris, das mit dem wrapper habe ich noch nicht so richtig versta nden:oops:
wenn ich jetzt den melder, von Tbrandmeldung ableite, in welcher ich nur propertys und event bereitstelle, die für alle komponenten gleich sind , könnte mann dies doch als wrapper bezeichnen, oder? die ableitung sieht wie folgt aus
Delphi-Quellcode:
somit kann ich doch in TBrandmeldung diese methode implementieren um den zähler zu realisieren ?
tBrandmeldung = class (TcustomControl)
tmelder = class (Tbrandmeldung) raik |
Re: instanz nach fehlerprüfung rückgängig machen
Moin Raik,
da ich jetzt das nicht ganz verstanden habe (;-)), versuche ich das noch einmal mit einem Beispiel zu zeigen, was ich in diesem Zusammenhang unter Wrapper verstehe:
Delphi-Quellcode:
Man könnte bei Add auch den Index zurückgeben, dabei dann, z.B., -1 für einen Fehler.
type
// Die Klasse von der es nur eine bestimmte Anzahl Instanzen geben darf TMyControl = class(TObject) // was so alles dazugehört end; // Die Verwaltungsklasse für TMyControl Objekte TMyControlWrapper = class(TObject) private FList : array of TMyControl; FiCount : integer; public // Bedingtes hinzufügen eines TMyControl Objektes function Add(...) : boolean; // Prüfen, ob erlaubt function IsNewControlAllowed(...) : boolean; property MyControl[<Irgendein Index>] : TMyControl ... end; TForm1 = class(TForm) //... private FControlWrapper : TMyControlWrapper; end; procedure TForm1.FormCreate(Sender: TObject); begin // Einmaliges erzeugen des Wrappers FControlWrapper := TMyControlWrapper.Create; end; function TMyControlWrapper.Add(...); begin Result := IsNewControlAllowed(...); if not Result then exit; // ... hinzufügen eines neuen TMyControl Objektes end; Es wird also kein Create aufgerufen wenn nicht wirklich etwas hinzugefügt werden darf. |
Re: instanz nach fehlerprüfung rückgängig machen
hallo chris , ich meinte es genauso nur mit der maßgabe, das ich die überprüfung in der unit mache, in welcher ich die klasse erstelle.
also in der deklaration der Tbrandmeldung . ich muß dann nur noch dieses WrapperObject erzeugen. werde mir das in den nächsten 14 Tagen mal zu gemüte führen und dann erfolge und misserfolge mitteilen. also erstmal dank raik |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:44 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz