instanz nach fehlerprüfung rückgängig machen

[kiar]

ich erstellen eine Instanz und rufe im create eine fehlerprüfung auf . nun zeigt mir die fehlerprüfung, das ich die instanz nicht mit diesen parametern erstellen kann, wie kann ich dies wieder rückgängig machen.

es müßte doch mit einer class function oder class procedure gehen, da ich ja dafür keine instanz des objectes brauche, oder liege ich mal wieder daneben.

raik

[Christian Seehase]

Moin Raik,

Zitat:

Zitat von kiar

...wie kann ich dies wieder rückgängig machen.

lös' einfach eine Exception aus.

[kiar]

hi chris.

das ist es aber nicht was ich will. ich erstelle zb 129 kompo, habe aber die maximale anzahl von 128 pro gruppe. er soll mir die erstellung mi den parameter unterbinden und vielleicht die nächste gruppe wählen!!

ich habe es mit class function probiert aber er meckert noch.

raik

[Christian Seehase]

Moin Raik,

könntest Du mal ein konkretes Beispiel geben?
So versteh' ich das nicht.

[APP]

Hallo,
das wollte ich auch vorschlagen,
aber darf/soll man im Constructor eine Eception auslösen?

Delphi-Quellcode:

CONSTRUCTOR TMyObject.Create;
VAR
   i                               : Integer;
BEGIN
   INHERITED;
   TRY
      i := StrToInt('f');
   EXCEPT
      RAISE;
   END;
END;

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
   aObject                         : TMyObject;
BEGIN
   aObject := TMyObject.Create;
   // Zusatz, wird nicht abgearbeitet, wenn 
   // im Constructor des Obj Fehler auftritt.
   TRY
      //...
   FINALLY
      aObject.Free;
   END;
END;

[EDIT] Ups, da warst Du wieder einmal schneller, Christian, na ja,
ich frage trotzdem: ist obiger Ansatz sinnvoll? [/EDIT]

[Christian Seehase]

Moin Armin,

warum nicht?
Je nachdem, was im Konstruktor passiert kannst Du ja nicht garantieren, dass da nicht durch irgendetwas anderes eine Exception ausgelöst wird. Und ob Du die nun gezielt auslöst, oder sie "zufällig" eintritt macht da ja keinen Unterschied.
Fängst Du die nicht ab, wird eh' der Destruktor aufgerufen.

[kiar]

ich erstelle eine komponente die hat eine meldernummer zb: 128 in meiner BMC- brandmeldetentrale habe ich linien, die max 128 brandmelder aufnehmen können. mit count überprüfe ich jetzt, wieviele melder ich erstellt habe, ist die zahl > 128 wird eine abfrage gestartet, und die linie verglichen, ob schon in dieser linie schon 128 melder sind. ist dies der fall soll create unterbrochen werden.

zur zeit ist es aber immer noch der fall, das meine fehlermeldung kommt, aber der cretae weiterläuft und die komponente erstellt.

ich hoffe ich habe es einleuchtend erklärt. es ist immer schwierig anwendungsspezifischen sachen einen aussenstehenden zu erklären .

raik

[kiar]

jetz wo ich es schwarz auf weis sehe, könnte mann es auch mit exception realisieren.

[Christian Seehase]

Moin Raik,

Du kannst einen Konstruktur nur unterbrechen, wenn Du eine Exception auslöst.

Andere Variante:
Du prüfst vor der Erstellung der Instanz, z.B. über eine spezielle Methode, ob noch eine Instanz erstellt werden darf.
[EDIT]
Diesen zweiten Weg finde ich auch sauberer als eine Exception auszulösen.
[/EDIT]

[kiar]

das meinte ich ebend mit einer class function. wenn ich diese mit einem zähler ausstatte, wie viele instanzen ich schon erzeugt habe kann ich ja create schon m vorfeld verhindern.

raik

[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. :spin2:

[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: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]

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