Objectlist.Add(). überladen

[jaenicke]

Lazarus hat zwar eine etwas umständliche Implementierung von Generics, aber funktionieren tut damit vieles was in Delphi geht auch:

Delphi-Quellcode:

uses
  fgl;

type
  TMeinTyp = class
  private
    FTest: string;
  public
    property Test: string read FTest write FTest;
  end;

  TMeinTypList = specialize TFPGList<TMeinTyp>;

// ...

var
  TestList: TMeinTypList;
  NewItem: TMeinTyp;
begin
  TestList := TMeinTypList.Create;
  NewItem := TMeinTyp.Create;
  NewItem.Test := 'Nichts';
  TestList.Add(NewItem);
  ShowMessage(TestList[0].Test);