Spring Collections erweitern

[QuickAndDirty]

Ist das das Spring das man aus java kennt? Also Aspekt orientierte Programmierung?

[Sir Rufo]

Die einfachste Lösung wäre ja eine Funktion, die so eine Queue als Parameter nimmt und dann die Gesamtlänge zurückgibt.

[Der schöne Günther]

Zitat von QuickAndDirty:

Ist das das Spring das man aus java kennt? Also Aspekt orientierte Programmierung?

AOP ist in "Spring4D" nicht drin, der Fokus steht wohl eher bei den Collections und IoC.
AOP findest du (glaube ich) bei DSharp.

Für beides ist Stevie so ziemlich der Mann der Stunde


PS:
Müsste so gehen:

Delphi-Quellcode:

interface type
   TMyCollections = class(Spring.Collections.TCollections)
      public class function CreateMyQueue(ownsObjects: Boolean): IMyQueue;
   end;
   
implementation uses Spring.Collections.Queues, System.Generics.Collections;

class function TMyCollections.CreateMyQueue(ownsObjects: Boolean): IMyQueue;
type
   TOwningQueue = System.Generics.Collections.TObjectQueue<TMyItem>;
var
   objQueue: TOwningQueue;
   ownership: TOwnershipType;
begin
   objQueue := TOwningQueue.Create(ownsObjects);

   if ownsObjects then
      ownership := TOwnershipType.otOwned
   else
      ownership := TOwnershipType.otReference;

   Result := TMyQueue.Create(objQueue, ownership);
end;

[Stevie]

Erstmal sorry, dass ich den Thread erst jetzt sehe - ich wünschte, es gäb hier Notifications, die man sich für bestimmte Keywords einrichten könnte.

Zu deiner Frage:
TQueue<T> in Spring4D ist "nur" ein Wrapper um die TQueue<T> aus Generics.Collections, um ihr das IQueue<T> Interface zu verpassen. Das verleiht ihr aber auch die Flexibilität bei Bedarf beide Klassen anpassen zu können.

Musst du aber in deinem Fall meiner Meinung nach nicht. Da wir leider in Delphi keine interface helper haben (das wär schön, dann könnte man einfach die Sum Methode aus dem IEnumerable<T> helper nutzen und bumm, fertig).

Egal, du benötigst ja hier eine Summe für die Menge einer konkreten Klasse (TMyItem). Das macht es einfach, da du so keine Selector Delegate brauchst, die dir den zu summierenden Wert (in deinem Fall die Laenge) liefert, was du bei einem IEnumerable<T>.Sum bräuchtest.

Ich würde also folgende simple Lösung vorschlagen, die überhaupt keine Modifikation bestehender Klassen notwendig macht.

Delphi-Quellcode:

function GesamtLaenge(const source: IEnumerable<TMyItem>): Double;
var
  item: TMyItem;
begin
  Result := 0;
  for item in source do
    Result := Result + item.Laenge;
end;

Im Grunde ist das auch genau das, was eine extension Method für IEnumerable<TMyItem> machen würde, nur dass man die Dank (in Delphi nicht vorhandenem) syntactic sugar anders aufrufen kann.