Design - Parametrisierung mehrerer Objekte

[Der schöne Günther]

Ich glaube so könnte man es auch umschreiben.

Ich hätte ganz spontan technisch keinen Ansatz, wie man bei Selektion von einem TMettwurst - und TPutenaufschnitt -Objekt nur die Eigenschaften von der gemeinsamen Oberklasse TWurst und dem zufälligen gemeinsamen Interface IEnthältPferd "zusammenmerged".

[stahli]

Ich würde es als Fleißaufgabe, weniger als Problem ansehen.

Wenn es keine fertige Komponente gibt (vielleicht hilft der VCL Object Inspector von DevExpress ?) kann man das sicher auch selbst hinkriegen.

Mit der neuen RTTI ginge das sicher einfacher, aber auch mit älteren Delphi´s kann man ja veröffentlichte Eigenschaften ermitteln.
Dann die Propertynames (sowie Typ und Wert) quasi in einer Liste sammeln und die nicht in allen selektierten Objekten vorkommen wieder löschen.
Dabei wäre es egal, ob die Objekte gemeinsame Vorfahren haben oder nicht. Man könnte dann z.B. den Durchmesser von Autolenkrad und Putenaufschnitt zusammen bearbeiten, wenn die Eigenschaft gleich heißt und vom selben Typ ist.

Mit dem modernen Databinding kann man hier wohl nicht arbeiten, da ja ein Eintrag nicht zwangsläufig nur an ein Objekt gebunden werden kann.

[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 TMettWurst von denen ich gleichzeitig z.B. den Fettgehalt ändern möchte. Also eine Art TBeutelVollMettWuerste der mir nach außen alle Eigenschaften von TMettWurst anbietet. Soll jetzt Zusätzlich die Art der Pelle änderbar sein, hätte ich gerne, dass mein 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. TWurstBeutel<TMettWurst> oder 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.