Zitat von
Khabarakh:
FItems[Length(FItems)] := i;
Dynamische Arrays sind 0-indiziert, laufen ergo von 0 bis Length - 1.
Jo hast recht. Hab ich garnicht dran gedacht. Umso mehr wundert es micht, dass das ganze dennoch funktioniert hat.
Zitat von
Khabarakh:
Delphi-Quellcode:
function TIntList.OutList: TIntList;
begin
Result := TIntList.Create;
// Durch Self ohne das letzte Item iterieren und in Result einfügen.
end;
Werde ich mal probieren. Hatte ich zwar schon aber er gab mir immer 0 aus (lag daran, dass ich dort auch bei 0 begonnen hatte
)
Zitat von
Khabarakh:
PS: Eine TList statt dem Array wäre besser.
Da hast du wohl recht. Allerdings haääte ich dann auch die ganzen Funktionen der TList. Oder müsste alle in der abgeleiteten Klassen als private deklarieren, da nur die oben genannten Methoden vorhanden sein sollen.