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