TList<>.OnBefore?

[Dejan Vu]

TList ist keine Komponente, sondern eine Klasse. Und so eine Klasse hat genau eine einzige Aufgabe: Implementierung einer Liste.

Gute Software zeichnet sich übrigens nicht dadurch aus, das man -wuppdiwupp- auf schnellstmöglichste Weise irgend ein Ding umsetzt, sondern eher dadurch, das das, was man umsetzt, nachhaltig ist, d.h. leicht zu verstehen, zu warten und zu erweitern ist.

Deine SW wäre mit TListen übersäht, wobei das OnBefore... ständig umgebogen würde. Hmmm....

[himitsu]

Wozu soll man erst einen Wrapper bauen, wo doch das OnBefore die einzige wichtige Funktion ist, die man wirklich in der Liste gebrauchen kann?
Soll ich jetzt dutzende Methoden verpacken und jeweils mit der Check-Methode davor zur Liste umleiten, anstatt nur eine Stelle in der Liste zu haben?

Gerade die generische TList<> hat rein garnichts mehr mit der alten TList zu zun.
Alleine das Interface der TList<> ist knapp 400 Zeilen lang, mit unmassen an Methoden, die man fast alle Wrappen müsste, wenn man dem Endnutzer meiner Komponente auch alle Möglichkeiten offen lassen will. (TList als Child-Liste in einer Komponente, also für einen schönen Baum an Komponenten)

[TiGü]

Zitat von himitsu:

Alleine das Interface der TList<> ist knapp 400 Zeilen lang, mit unmassen an Methoden, die man fast alle Wrappen müsste...

Reden wir wirklich von System.Generics.Collections.TList<T>?
In Delphi Seattle geht die gesamte Klassendefinition von Zeile 340 bis Zeile 450.
Die öffentlichen Methoden von 369 bis 425 mit vielen Leerzeilen dazwischen, die fünf Propertys und ggf. der Enumerator kommen noch dazu.
Aber soooviel zu wrappen ist es auch nicht, wenn man unbedingt noch die Prüfung im Add, Insert und AddRange braucht.

[himitsu]

Mit dem Helper und allem drum und dran geht es bei Zeile 20 los, aber OK, nur TList<> sind dennoch 100 Zeilen (330 bis 440)
Alleine der ListHelper von 70 bis 330 und die Events werden in jeder dessen Methode einzeln aufgerufen.

[Stevie]

Dass ein solches OnBefore Event eine krasse Verletzung des LSP wäre, ist noch keinem aufgefallen, oder?

[himitsu]

Zitat von Stevie:

Dass ein solches OnBefore Event eine krasse Verletzung des LSP wäre, ist noch keinem aufgefallen, oder?

Wieso?

Wenn das direkt im Basistypen vorhanden wäre, würde es doch dem LSP entsprechen.

[Stevie]

Zitat von himitsu:

Zitat von Stevie:

Dass ein solches OnBefore Event eine krasse Verletzung des LSP wäre, ist noch keinem aufgefallen, oder?

Wieso?

Weil es das Verhalten von Add und dergleichen ändert.

Übrigens würdest du selbst mit Vererbung von TList<T> nichts gewinnen, da du durch das Fehlen von virtual auf den veränderten Methoden eine solche - ich nenn sie mal TFilteredList<T> - nicht als TList<T> übergeben kannst, da die sich wieder wie eine TList<T> verhalten würde. Das heißt du müsstest immernoch alle betroffenen Methoden von TList<T> auf TFilteredList<T> ändern. Und dann kannst du auch den Ansatz mit der Komposition gehen.

[bernau]

Zitat von Dejan Vu:

TList ist keine Komponente, sondern eine Klasse. Und so eine Klasse hat genau eine einzige Aufgabe: Implementierung einer Liste.

Wo wurde behauptet, daß TList eine Komponente ist?

Zitat von Dejan Vu:

Deine SW wäre mit TListen übersäht, wobei das OnBefore... ständig umgebogen würde. Hmmm....

Wiso? Eine virtuelle "DoBefore" wäre doch hilfreich. Wenn ich von TList<> eine Ableitung schreibe, dann muss ich diese virtuelle Methode einfach überschreiben und schon habe ich eine Klasse, die genau auf die Anforderung angepasst ist.

[TiGü]

Muss man denn auch den ganzen ListHelper nachstellen?
Ich dachte eher an sowas:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Generics.Collections;

type
  THimiBeforeNotifyEvent<T> = reference to function(Sender: TObject; const Item: T): Boolean;

  THimiList<T> = class
  strict private
    FList: TList<T>;
    FOnBeforeNotify: THimiBeforeNotifyEvent<T>;
  public
    constructor Create;
    destructor Destroy; override;

    function Add(const Value: T): Integer; {$IFDEF Release} inline; {$ENDIF}
    property OnBeforeNotify: THimiBeforeNotifyEvent<T> read FOnBeforeNotify write FOnBeforeNotify;
  end;

constructor THimiList<T>.Create;
begin
  inherited;
  FList := TList<T>.Create;
end;

destructor THimiList<T>.Destroy;
begin
  FList.Free;
  inherited;
end;

function THimiList<T>.Add(const Value: T): Integer;
begin
  Result := 0;
  if Assigned(FOnBeforeNotify) then
  begin
    if FOnBeforeNotify(Self, Value) then
    begin
      Result := FList.Add(Value);
    end;
  end;
end;

procedure Main;
var
  HimiList: THimiList<Integer>;
begin
  HimiList := THimiList<Integer>.Create;
  HimiList.OnBeforeNotify := function(Sender: TObject; const Item: Integer): Boolean
    begin
      Result := (Item mod 2) = 0;
    end;
  try
    HimiList.Add(1);
    HimiList.Add(2);
    HimiList.Add(3);
    HimiList.Add(4);
  finally
    HimiList.Free;
  end;
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

Zugegeben, das wird bei Insert/AddRange() etwas fricklig, aber sonst?

[Dejan Vu]

Zitat von bernau:

Zitat von Dejan Vu:

TList ist keine Komponente, sondern eine Klasse. Und so eine Klasse hat genau eine einzige Aufgabe: Implementierung einer Liste.

Wo wurde behauptet, daß TList eine Komponente ist?

Muss denn irgendwo stehen, A ist ein B, um zu betonen, das A eben *kein* B ist? Komponenten haben Events ohne Ende, um das Verhalten zu modifizieren, kleine Klassen nicht.

Zitat von Dejan Vu:

Deine SW wäre mit TListen übersäht, wobei das OnBefore... ständig umgebogen würde. Hmmm....

Wieso? Eine virtuelle "DoBefore" wäre doch hilfreich. [/QUOTE] Klar und dann? Schreibe ich mir lauter Ableitungen (composition over inheritance).
Wenn ich eine Liste benötige, bei der ich kontrollieren muss, was rein darf und was nicht, schreibe ich mir eine entsprechende Klasse.
Die Liste (bzw. allgemein: eine Klasse) mit virtuellen Methoden zu überladen und damit komplex und schwerfällig zu machen, kann es doch nicht sein.
Denn es bliebe ja nicht beim OnBefore, sondern... OnAfter? OnDelete? OAfterDelete? etc. Was ist, wenn ich ein Listenelement einfach update und damit die Validierumg im 'OnBefore' aushebeln kann?