Forum: Algorithmen, Datenstrukturen und Klassendesign
by Schwedenbitter,
9. Jul 2010
Das glaube ich nicht wirklich.
Denn mein Object erbt die Methode SaveToFile() abgeleitet von TStringList. Das wiederum speichert ja nur die einzelnen Listeneinträge in einer Datei. Ich kann mir daher nicht vorstellen, dass ein inherited irgend etwas bzgl. der mit der Liste gespeicherten Objecte bewirken soll.
Im Moment sieht mein Code - sehr sehr unschön - so aus:Type
TDish =...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Schwedenbitter,
9. Jul 2010
Danke für die Tipps!
So klappt es leider nicht: {$M+}
TDishList= Class(TStringList) // Object für Liste der Gerichte
Private
Function GetSystemID(Index: Integer): Integer;
Procedure SetSystemID(Index: Integer; Const Value: Integer);
Public
Constructor Create;
Destructor Destroy; Override;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Schwedenbitter,
8. Jul 2010
Hallo,
Grundproblem:
Ich möchte in meinem Programm viele Daten verwalten. Diese Daten speichere ich nicht in Records, sondern in TmeineDaten = Class(TObject) End; TmeineDaten enthält dann Strings, Integer und alles mögliche andere.
Diese Objecte wiederum verwalte ich alle in einer TStringList; TStringList deshalb, weil die Objecte alle mit Ihrem Namen abgelegt werden und ich dann über...