Implementierung TList<>

[TiGü]

Ich bin eh irritiert über die Fragestellung.
Dir liegen doch die Quelltexte und der Debugger vor.
Was genau hast du im ersten Beitrag erwartet?
Das es jemand nochmal in Prosaform beschreibt?

[freimatz]

Ehrlich: ja. (Wobei Prosa muss es ja nicht sein, es sind ja nur zwei Optionen )
Auf die Idee den Debugger zu nehmen und in der RTL rumzusuchen kam ich zuerst gar nicht.
Andererseits - auch dachte ich das weiss vielleicht gerade jemand.

Was Spring4D ist es nach wie vor so, das ich da nicht so recht weiter komme. Einerseits ist Delphi mal wieder störisch und andererseits verstehe ich den Code nicht so recht.

[TiGü]

Also ohne es selbst zu nutzen, aber es ist doch relativ einfach zu durchschauen?
Du machst schon so lange Delphi und schreibst ab und an, was für eine sophisticated Firma ihr habt?!


https://bitbucket.org/sglienke/sprin...tions.Base.pas

Die Spring4D-TList<T> leitet von TListBase<T> ab:

Delphi-Quellcode:

function TListBase<T>.Add(const item: T): Integer;
begin
  Result := Count;
  Insert(Result, item);
end;

Das Add ruft also wie gebräuchlich die Insert-Methode auf:

https://bitbucket.org/sglienke/sprin...ions.Lists.pas

(Kommentare mit Zahlen von mir)

Delphi-Quellcode:

procedure TList<T>.Insert(index: Integer; const item: T);
begin
{$IFDEF SPRING_ENABLE_GUARD}
  Guard.CheckRange((index >= 0) and (index <= fCount), 'index'); // 1
{$ENDIF}

  EnsureCapacity(fCount + 1); // 2

  IncUnchecked(fVersion);
  if index <> fCount then // 3
  begin
    TArrayManager.Move(fItems, index, index + 1, fCount - index);
    TArrayManager.Finalize(fItems, index, 1);
  end;
  fItems[index] := item; // 4
  Inc(fCount); // 5

  Changed(item, caAdded); // 6
end;

1. Gucken ob der Index stimmt.
2. Ggf. das interne Array fItems: TArray<T>; vergrößern wenn der Platz nicht reicht
3. Wenn Index ungleich Count ist das Array umkopieren.
4. Neues Item auf Position im Array speichern.
5. Count erhöhen
6. Ggf. angemeldete Eventhandler rufen für "Hab Element hinzugefügt!"-Fall.

[freimatz]

Danke. Ich meine inzwischen auch die zweite Frage beantworten zu können.

Zitat von TiGü:

Also ohne es selbst zu nutzen, aber es ist doch relativ einfach zu durchschauen?
Du machst schon so lange Delphi und schreibst ab und an, was für eine sophisticated Firma ihr habt?!

Für mich ist das leider nicht recht einfach durchzuschauen. Ja ich mache schon lange Delphi (und davor Turbo-Pascal). Code zu verstehen den anderen gemacht haben, habe ich grössere Mühe. Das liegt sicher an mir. (Und bei Prosa sind die Schwierigkeiten meist noch grösser.)

[Stevie]

Gut, dass du den Code aus Spring 1.2 gepostet hast und nicht aus develop (2.0), sonst hättest noch irgendwen verschreckt

[freimatz]

Jetzt hast Du mich neugierig gemacht und ich habe den Code angesehen.