Liste von vielen unterschiedlichen Grafikobjekten mit unterschiedlichen Properties

[Bjoerk]

Weiß nicht recht? Wer soll diese Klasse in einem Jahr nochmal verstehen, erweitern, ergänzen, ändern? Kann man vielleicht mit einer IniFile als Schnittstelle was machen? Ich hab echt keine Idee mehr..

Delphi-Quellcode:

[Prop1]
Master = Object1
Slave1 = Object2
Slave2 = Object100
[Prop2]
..

[DeddyH]

Mir ist ehrlich gesagt nicht klar, wie da nun eine IniFile weiterhelfen soll. Oder aber ich habe das Problem gründlich missverstanden.

[Jens01]

Hi,
etwas ähnliches, aber einfacher, habe ich mal mit einer Holzliste gemacht. Da werden Höhe, Breite, Länge usw in jeweiligen Edits angezeigt. Wenn alle Werte der markierten Hölzer -zB die Breite- gleich ist, dann wird der Wert im Edit angezeigt, wenn die Werte unterschiedlich sind, dann ist das Edit-Feld leer. Wenn ins Edit etwas eingetragen wird, dann werden alle markierten Hölzer auf den Wert geändert.
Meinst Du sowas? Ich müßte mal gucken, wie ichs gemacht habe. War aber irgendwas mit Schleifen.

[Sir Rufo]

Da du ja die Eigenschaften von mehreren unterschiedliche Objekte zusammenfassen möchtest, brauchst du zunächst etwas, was du vergleichen kannst um gleiche Eigenschaften zusammenzufassen.

Oder anders ausgedrückt, wir benötigen eine Klasse, die eine Eigenschaft darstellen kann (aber nur die Eigenschaft selber, ohne den Wert)

Delphi-Quellcode:

TProperty = class
public
  constructor Create( const PropName : string; PropType : integer );
  function Equals( Obj : TObject ) : Boolean; override;
  function SameValueAs( Other : TProperty ) : Boolean;
published
  property PropName : string read FPropName;
  property PropType : integer read FPropType;
end;

function TProperty.Equals( Obj : TObject ) : Boolean;
begin
  Result := (Self = Obj) or Assigned( Obj ) and ( Self.ClassType = Obj.ClassType ) and SameValueAs( Obj as TProperty );
end;

function TProperty.SameValueAs( Other : Tproperty ) : Boolean;
begin
  Result := (Self = Other) or Assigned( Other ) and SameText( Self.FPropName, Other.FPropName ) and (Self.FPropType = Other.FPropType );
end;

Die nächste Klasse, wäre dann die, wo man auf den Eigenschaftswert zugreifen kann

Delphi-Quellcode:

TPropertyValue = class
public
  constructor Create( Instance : TObject; const PropName : string );
  // True, wenn gleiche Eigenschaft und gleicher Wert
  function Equals( Obj : TObject ) : Boolean; override;
  function SameValueAs( Other : TPropertyValue ) : Boolean;
published
  property Prop : TProperty read FProp;
  property ValueStr : string read GetValueStr write SetValueStr;
end;

Um jetzt ein ganze Instanz zu verwalten benötigen wir eine Klasse, die eine Liste mit den Property-Werten anbietet:

Delphi-Quellcode:

TObjectProperties = class abstract
public
  property Count : Integer read GetCount;
  property PropValue[Index : Integer] : TPropertyValue read GetPropValue;
end;

und diese Klasse benötigen wir für eine Instanz

Delphi-Quellcode:

TSingleObjectProperties = class( TObjectProperties )
public
  constructor Create( Instance : TObject );
end;

und für mehrere

Delphi-Quellcode:

TMultiObjectProperties = class( TObjectProperties )
public
  procedure Add( Object : TSingleObjectProperties );
  procedure Remove( Object : TSingleObjectProperties );
end;

Das ist jetzt alles etwas schematisch, aber das Prinzip sollte jetzt klar geworden sein.

[DeddyH]

Das ist ja ziemlich genau das, was ich gesagt hatte, in Code gegossen. Nur ist sich Bjoerk nicht sicher, ob er später noch versteht, was er da gemacht hat

[Sir Rufo]

Zitat von DeddyH:

Das ist ja ziemlich genau das, was ich gesagt hatte, in Code gegossen. Nur ist sich Bjoerk nicht sicher, ob er später noch versteht, was er da gemacht hat

Er erweckte in mir den Eindruck deine Worte nicht in Code umsetzen zu können, und mit der Ini-Datei war er auch auf dem völlig falschen Dampfer unterwegs

Sollte nur ein etwas gröberer Stubser werden

[Bjoerk]

Bei einer Holzliste ist das sicherlich kein Problem.. Was machst du wenn das eine Object mit dem andern fast nichts zu tun hat? Den Ansatz von Sir Rufo und DeddyH schaut "ER" sich nachher genauer an, "ER" muß jetzt erst mal was essen..

BTW, jetzt hab ich so, daß ich alles in einem "TMegaShape" drin hab. Wollte aber eigentlich keinen Katastrophencode mehr produzieren..

[Jens01]

Zitat:

Was machst du wenn das eine Object mit dem andern fast nichts zu tun hat?

Vielleicht eine Grundklasse erstellen. Farbe usw könnte man dorthin verfrachten. Wenn die Daten/Properties nichts miteinander zu tun haben, ist fraglich, ob man sie gleich behandeln sollte.
Man könnte mit diesem rtti gleiche Namen heraussuchen, hmm..

Deine Software sieht aber schon ganz gut aus, naja für Betonbauer