instanz nach fehlerprüfung rückgängig machen

[Christian Seehase]

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]

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.

[Christian Seehase]

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]

hallo chris, das mit dem wrapper habe ich noch nicht so richtig versta nden

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]

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]

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