Design - Parametrisierung mehrerer Objekte

[CarlAshnikov]

OK. Die Sache mit dem Aufsammeln der Properties wäre, wie gesagt, der nächste Schritt für mich.

Momentan habe ich, um mal bei dem schönen Beispiel zu bleiben, nur mehrere

Delphi-Quellcode:

TMettWurst

von denen ich gleichzeitig z.B. den Fettgehalt ändern möchte. Also eine Art

Delphi-Quellcode:

TBeutelVollMettWuerste

der mir nach außen alle Eigenschaften von

Delphi-Quellcode:

TMettWurst

anbietet. Soll jetzt Zusätzlich die Art der Pelle änderbar sein, hätte ich gerne, dass mein

Delphi-Quellcode:

TBeutelVollMettWuerste

das auch möglich macht.

Meine Frage war ob das automatisiert möglich ist oder ob ich immer wieder an 2 Stellen anpacken muss.

Der generische Fall wäre dann z.B.

Delphi-Quellcode:

TWurstBeutel<TMettWurst>

oder

Delphi-Quellcode:

TWurstBeutel<TPutenaufschnitt>

der mir dann die Properties der jeweiligen Wurstsorte abbildet.

Wenn ich so recht drüber nachdenke müsste ich mir da irgendwie dynamisch eine Klasse zusammenbasteln.

[Furtbichler]

Objektinspektoren gibt es auch von JEDI für umme, aber die Mehrfachselektion wird schwierig.

Wenn es einfache Key-Value-Paare sind ("Eigenschaft", "Wert"), hilf ein einfacher zweispaltiger Editor, im einfachsten Fall ein TStringGrid. Das gibts auch in D5, und auch dort gab es RTTI.

Folgende -sehr einfache- Idee:

Editiert werden Key-Value Paare bzw. eine Liste davon. Aus jedem Objekt kann ich die Eigenschaften per RTTI auslesen. Ich habe also eine Funktion 'GetPropertyList(anyObject : TObject) : TKeyValueList'. Die rufe ich für jedes markierte Objekt auf und bilde die Schnittmenge der Listen.

Ich erhalte eine TKeyValueList, die ich mit einem Editor meiner Wahl (gepimptes TStringGrid z.B.) editieren kann.

Nun benötige ich nur noch eine Methode 'SetProperties(anyObject : TObject; Values : TKeyValueList)' welches die Werte der einzelnen Keys (=Name der Property) in das Objekt zurückschreibt. Auch das geht total einfach mit RTTI.

Nachteil: Eine Property 'Foo' kann in einem Objekt vom Type 'Bool' und im anderen vom Typ 'Integer' sein, das würde mit der einfachen Key-Value Methode untergehen.

Abhilfe: Die Typinformation wird im KeyValue-Wert (das ja dann eigentlich ein Key-Type-Value Tripel ist) abgelegt und die Schnittmenge berücksichtigt auch die Typinformation. Ferner kann der Listeneditor auf den Typ eingehen und ggf. eine Checkbox o.ä. anbieten.

Das kann man nun noch weiter spinnen, denn eine Property könne ja wieder ein Objekt sein. Dann bietet der Editor nur einen Button an, der dann einen weiteren Key-Type-Value-Editor aufruft und das spiel beginnt von neuem (natürlich mit nur einem Objekt).

Delphi-Quellcode:

Procedure EditProperties (objectList : TList);
Var
  PropertyList, CommonPropertyList : TKeyTypeValueList;

Begin
  CommonPropertyList := TKeyTypeValueList.Create;
  For object in objectList do begin
    PropertyList := GetPropertyList(object);
    CommonProperties.IntersectWith(PropertyList);
  end;
  if EditKeyTypeValueList(CommonProperties) = mrOK then
    For object in objectList do
      SetProperties (object, CommonProperties);
End;

Billig, einfach, erweiterbar. Sollte funzen.