Hi und sorry,
ich hab es in der Hektik nicht komplet getestet
.
Der Fehler liegt hier:
Delphi-Quellcode:
constructor TDateItems.Create(DateLine: TDateLine);
begin
// 11.10.2006
inherited Create(TDateItem);
FDateLine := DateLine;
end;
Du mußt im Aufruf inherited create einen Klassennamen angeben. Das sagt die
OH dazu:
Zitat:
Die Methode erzeugt und initialisiert eine Kollektion.
type TCollectionItemClass = class of TCollectionItem;
constructor Create(ItemClass: TCollectionItemClass);
Beschreibung
Create erwartet als Parameter den Namen einer von TCollection abgeleiteten Klasse. Dieser Parameter legt die Klasse der Elemente fest, die von der Methode Add erzeugt werden.
danach ist die Fehlermeldung weg.
Der Kommentar in SetItem muß natürlich auch raus:
Delphi-Quellcode:
procedure TDateItems.SetItem(Index: Integer; Value: TDateItem);
begin
// 11.10.2006
inherited SetItem(Index, Value);
end;
somit lauft das Compiling erst mal. Ich teste jetzt aber auch noch mal das creieren der Items.
gruß oki