TObjektList mit 2 oder mehr TObjekte

[alfold]

Hi, alle miteinander

Kurze Erklärung,

Ich erstelle 2 Objekte, die ich in einer Objektliste verwalten möchte.
Meine Frage:
Wie erkenne ich, wie viele der einzelnen Objekte vorhanden sind?
Es gibt ja leider kein getrenntes Add.
Ich kann zwar anhand der Items feststellen wo und wie viele es gibt und sie dann als einzelne Counts zuordnen.
z.B. CountRow, CountCol

Ist aber nicht sehr nützlich da das ganze ja Dynamisch erzeugt wird und ich auf die Items zugreifen muss.
Gibt es eine Möglichkeit das "add" zu trennen??
Das ganze muss auch noch gespeichert und gelesen werden!

Delphi-Quellcode:

type
  TSoundRow = class(TObject)
     Soundfile: ShortString;
      SoundName: ShortString;
      SoundColor: TColor;
      CommentText: ShortString;
      CommentColor: TColor;
      CommentSize: Integer;
      SzeneText: ShortString;
      SzeneColor: TColor;
      ColIndex: Integer;
      Start: TTime;
      Anfang: TTime;
      Ende: TTime;
      LoopA: TTime;
      LoopE: TTime;
      VolA: Integer;
      VolE: Integer;
      FadeTime: real;

      FadeIn: Boolean;
      FadeOut: Boolean;
      FwStop: Boolean;
  end;

  TSoundCol = class(TObject)
       ColName: ShortString;
       ColColor: TColor;
       ColWidth: Integer;
  end;

    TAudioList = class(TObjectList)
      MasterName: ShortString;
      MasterColWidth: Integer;
      MasterColor: TColor;
      CommentName: ShortString;
      CommentColWidth: Integer;
      CommentNameColor: TColor;

      protected
        procedure SetRow(i: Integer; aSoundRow: TSoundRow);
        procedure SetCol(i: Integer; aSoundCol: TSoundCol);
        function GetRow(i: Integer): TSoundRow;
        function GetCol(i: Integer): TSoundCol;
        function getRowCount: Integer;
        function getColCount: Integer;
      public
        property SounRow[i: Integer]: TSoundRow read GetRow write SetRow;
        property SoundCol[i: Integer]: TSoundCol read GetCol write SetCol;
        property CountRow: Integer read getRowCount;
        property CountCol: Integer read getColCount;
     //   function addSoundRow(Aobjekt: TSoundRow): Integer;
     //   function addSoundCol(Aobjekt: TSoundCol): Integer;

     //   procedure SaveToFile(const Fname: string);
     //   procedure LoadFromFile(const Fname: string);

  end;

Ich bin erst am Anfang von dem ganzen "ObjectList" usw.
Vieles gelesen die hälfte nur verstanden, also fängt man mal an
Ich hoffe ihr könnt mir helfen.

Gruß alfold

[Dalai]

TObjectList.Count?

Der Sinn hinter getrennten Counts ergibt sich mir nicht. Aber das musst du selber wissen (oder erfragen).

Grüße
Dalai

[alfold]

Zitat von Dalai:

TObjectList.Count?

Der Sinn hinter getrennten Counts ergibt sich mir nicht. .....
Grüße
Dalai

Im Prinzip schon, wenn man auf die einzelnen unterschiedlichen Objecte über das Item zu greifen muss. Z.B colcount ist die Anzahl Spalten und das item 1 wöhre die spalte 1. geht aber in diesem fall nicht!

gruß alfold

[jaenicke]

Es macht keinen Sinn dann nur eine Liste zu benutzen. Wie wäre es, wenn du einfach zwei Listen innerhalb deiner Klasse nutzt statt von einer TObjectList abzuleiten?

Und wenn du z.B. die kostenlose aktuelle Community Edition benutzen könntest, könntest du auch eine TObjectList<TSoundCol> und eine TObjectList<TSoundRow> benutzen ohne zu casten.

[p80286]

Zitat von alfold:

Im Prinzip schon, wenn man auf die einzelnen unterschiedlichen Objecte über das Item zu greifen muss. Z.B colcount ist die Anzahl Spalten und das item 1 wöhre die spalte 1. geht aber in diesem fall nicht!

gruß alfold

Klngt wie rektale Augenoperation.
Wenn Du unterschiedliche Objekte in einer Liste verwalten willst, kannst Du sie nur dort gleich behandeln wo sie auch gleich sind.

Gruß
K-H

[alfold]

Zitat von p80286:

....
Wenn Du unterschiedliche Objekte in einer Liste verwalten willst, kannst Du sie nur dort gleich behandeln wo sie auch gleich sind.

Gruß
K-H

Hab ich ja schon mitbekommen zu mindestens was das Item der Objektliste betrifft.
Hätt ja sein können das man da dran drehen kann!?
In etwa so

Delphi-Quellcode:

function addSoundRow(Aobjekt: TSoundRow): Integer;
function addSoundCol(Aobjekt: TSoundCol): Integer;

Zitat von jaenicke:

Es macht keinen Sinn dann nur eine Liste zu benutzen. Wie wäre es, wenn du einfach zwei Listen innerhalb deiner Klasse nutzt statt von einer TObjectList abzuleiten?

Und wenn du z.B. die kostenlose aktuelle Community Edition benutzen könntest, könntest du auch eine TObjectList<TSoundCol> und eine TObjectList<TSoundRow> benutzen ohne zu casten.

Ja, werde ich wohl nicht drum rum kommen. War ja auch nur so eine Idee.

Wird hoffentlich kein Problem dann beim Speichern ???.

Gruß alfold

[scrat1979]

Zum erkennen wieviele Objekte vom jeweiligen Typ vorhanden sind könntest du folgendes machen (Code inkomplett aber die Vorgehensweise sollte klar sein):

Delphi-Quellcode:

for i:=0 to Count-1 do
 If Items[i] is TSoundRow then...

[hoika]

Hallo,
warum soll es ein Speicher-Problem geben?
Du schreibst den Speichern-Code ja auch, oder?

[alfold]

Zitat von scrat1979:

Zum erkennen wieviele Objekte vom jeweiligen Typ vorhanden sind könntest du folgendes machen (Code inkomplett aber die Vorgehensweise sollte klar sein):

Delphi-Quellcode:

for i:=0 to Count-1 do
 If Items[i] is TSoundRow then...

Hab ich schon gemacht. Damit erhalte ich die Anzahl SoundsRow und SoundCol aber nicht den jeweiligen itemindex so wie man ihn brauch (aus einem Array, oder Liste).

Zitat von hoika:

Hallo,
warum soll es ein Speicher-Problem geben?
Du schreibst den Speichern-Code ja auch, oder?

Zitat von alfold:

Wird hoffentlich kein Problem dann beim Speichern ???.

Mh, bei 2 Objektlisten! Irgendwann sollen die Daten ja gespeichert werden.
Stell ich mir sehr komplex vor dies in eine Datei zu Speichern.

Wie gesagt hab ich noch nie gemacht, bis dato.

Totzdem Danke an alle,
hab jetzt noch ein 2 property hinzugefügt als itemindex.
Hätt ich gleich machen sollen

Gruß alfold

[Aviator]

Zitat von alfold:

hab jetzt noch ein 2 property hinzugefügt als itemindex.
Hätt ich gleich machen sollen

Dann würde mich jetzt mal interessieren, was bei deinem Programm passiert wenn du folgendes Szenario hast:

• Du speicherst 10 Objekte in deiner ObjectList.
• Die zusätzliche Property ItemIndex deiner Objects sind von 0-9 durchnummeriert
• Du löschst das vierte (oder was auch immer für ein) Element/Object aus der Liste
• Du durchläufst die Liste und willst irgendein spezielles Object haben. Sagen wir das, bei dem deine ItemIndex Property auf 9 steht
• Du greifst auf das jetzt 9. Object in der Liste zu und nimmst dir den ItemIndex
• Der Item Index ist 9, aber der größte Index ist 8, da nur noch 9 Objekte in deiner Liste sind
• ... probier aus was passiert

Ein anderer Fall wäre, dass du auf ein Object mit einem bestimmten ItemIndex zugreifen möchtest, dieses aber in Wirklichkeit von einem anderen Typen ist, da sich durch das Löschen von Elementen die Reihenfolge verschoben hat. Also spätestens beim Cast auf ein anderes Object bzw. beim Zugriff auf eine Property dieses Objects knallt es dann.

Also hast du nur zwei Möglichkeiten:

1. Du musst jedes Mal wenn du ein Element aus der Liste löschen willst den ItemIndex aller nachfolgenden Elemente korrigieren
2. Du benutzt einfach zwei unterschiedliche Listen für dein Problem
3. (Optional: Du machst dir eine eigene Klasse die wiederum in einer generischen TObjectList<T> gespeichert wird und verwaltest dort deine Daten)