Design - Parametrisierung mehrerer Objekte

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