Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
18. Okt 2008
Naja, da du in der Basisklasse ja sowas machst:
function TBaseList.getitem(index: Integer): TBaseItem;
begin
Result = fitems;
end;
Solltest du in der abgeleiteten Klasse sowas machen:
function TMyList.getitem(index: Integer): TMyItem; // override;
begin
Result = inherited getitem(index) as TMyItem;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
17. Okt 2008
Naja, ich meine das du eine kleine Klasse machst wie folgt:TBaseItem = class
private
// Felder
end;
TBaseList = class
private
fFilename : AnsiString;
fLength : integer;
fItems : array of TBaseItem;
Forum: Object-Pascal / Delphi-Language
Delphi
by jfheins,
17. Okt 2008
Du musst für den Item-Typ (der ja anscheinend auch eine Klasse ist) am besten auch so etwas machen: Eine Basisklasse, von der abgeleitet wird. (Kannst auch TObject nehmen)
Oder aber über Interfaces ;)
In D2009 gibt es glaube ich Generics, damit geht das auch.