Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi instanz nach fehlerprüfung rückgängig machen (https://www.delphipraxis.net/10756-instanz-nach-fehlerpruefung-rueckgaengig-machen.html)

Christian Seehase 24. Okt 2003 18:48

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.

kiar 24. Okt 2003 19:37

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:

Christian Seehase 24. Okt 2003 21:32

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.

kiar 26. Okt 2003 13:18

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:
tBrandmeldung = class (TcustomControl)
tmelder = class (Tbrandmeldung)
somit kann ich doch in TBrandmeldung diese methode implementieren um den zähler zu realisieren ?


raik

Christian Seehase 26. Okt 2003 14:49

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:
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;
Man könnte bei Add auch den Index zurückgeben, dabei dann, z.B., -1 für einen Fehler.
Es wird also kein Create aufgerufen wenn nicht wirklich etwas hinzugefügt werden darf.

kiar 26. Okt 2003 15:24

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.
Seite 2 von 2     12   

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