uses ...fgl...
type
  TMyClass = class(TObject)
     fld1 : string;
  end;

  TMyList = specialize TFPGObjectList<TMyClass>; 

//===================
procedure TForm1.Button1Click(Sender: TObject);
var
  list : TMyList;
  c : TMyClass;
  i: Integer;
begin
  list := TMyList.Create;
  c := TMyClass.Create;
  Memo1.Clear;

  try
    {1}
    for i := 0 to 10 do
    begin
      c.fld1 := 'c' + IntToStr(i);
      list.Add(c);
    end;

    for i := 0 to Pred(list.Count) do
      Memo1.Lines.Add(IntToStr(i) + '. ' + list[i].fld1);

    Exit; 

    {2}
    c.fld1:= 'c100';
    list.Insert(3,c);
    for i := 0 to Pred(list.Count) do
      Memo1.Lines.Add(IntToStr(i) + '. ' + list[i].fld1);
  finally
    {3}
    //FreeAndNil(c);
    //FreeAndNil(list);
  end;
end;  
 

0. c10
1. c10
2. c10
3. c10
4. c10
5. c10
6. c10
7. c10
8. c10
9. c10
10. c10

0. c100
1. c100
2. c100
3. c100 //хотелось бы видеть это значение только в этой позиции
4. c100
5. c100
6. c100
7. c100
8. c100
9. c100
10. c100
11. c100

[Window Title]
Ошибка
[Content]
Проект project1 вызвал класс исключения 'External: SIGSEGV'.
 По адресу 10C034
[ОК]

Компиляция проекта, цель: project1.exe: Успешно, подсказок: 18
fgl.pp(978,1) Hint: "inherited" not yet supported inside inline procedure/function
fgl.pp(978,1) Hint: Inlining disabled

procedure TForm1.Button1Click(Sender: TObject);
var
  list : TMyList;
  c : TMyClass;
  i: Integer;
begin
  list := TMyList.Create;
  //c := TMyClass.Create;
  Memo1.Clear;
  try
    {1}
    for i := 0 to 10 do
    begin
      c:= TMyClass.Create;
      c.fld1 := 'c' + IntToStr(i);
      list.Add(c);
    end;

    //for i := 0 to Pred(list.Count) do
    //  Memo1.Lines.Add(IntToStr(i) + '. ' + list[i].fld1);

    //Exit;

    {2}
    c:= TMyClass.Create;
    c.fld1:= 'c100';
    list.Insert(3,c);
    for i := 0 to Pred(list.Count) do
      Memo1.Lines.Add(IntToStr(i) + '. ' + list[i].fld1);
  finally
    {3}
    //FreeAndNil(c);
    FreeAndNil(list);
  end;

0. c0
1. c1
2. c2
3. c100
4. c3
5. c4
6. c5
7. c6
8. c7
9. c8
10. c9
11. c10

uses
... Generics.Collections;
type

  TMyRec = packed record
    FInt: Integer;
    FBool: Boolean;
  end;

  TMyRecList = specialize TList<TMyRec>;   

procedure TForm1.Button1Click(Sender: TObject);
var
  RL: TMyRecList;
  MR: TMyRec;
  i: Integer;
  BoolStr: String;
begin
  RL:= TMyRecList.Create;
  try
    Memo1.Clear;
    for i := 0 to 10 do
    begin
      MR.FInt:= i;
      MR.FBool:= ((i mod 2) = 1);
      RL.Add(MR);
    end;

    MR.FInt:= 1000;
    MR.FBool:= True;

    RL.Insert(5,MR);

    MR.FInt:= - 1000;
    MR.FBool:= False;

    RL.Insert(8,MR); 

    for i := 0 to Pred(RL.Count) do
    begin
      if RL.Items[i].FBool
        then
          BoolStr:= 'True'
        else
          BoolStr:= 'False';

      Memo1.Lines.Add(Format('%d. FInt = %d | FBool = %s',[i,RL.Items[i].FInt,BoolStr]));
    end;

  finally
    FreeAndNil(RL);
  end;

end;

0. FInt = 0 | FBool = False
1. FInt = 1 | FBool = True
2. FInt = 2 | FBool = False
3. FInt = 3 | FBool = True
4. FInt = 4 | FBool = False
5. FInt = 1000 | FBool = True
6. FInt = 5 | FBool = True
7. FInt = 6 | FBool = False
8. FInt = -1000 | FBool = False
9. FInt = 7 | FBool = True
10. FInt = 8 | FBool = False
11. FInt = 9 | FBool = True
12. FInt = 10 | FBool = False 

program project1;

{$mode delphiunicode}

Uses

 SysUtils;

type

 TRec<T> = Record

  FItems : Array Of T;


  Procedure Add(Const AValue : T);

  Function ToString : String;

 End;

{ TRec }

Procedure TRec<T>.Add(Const AValue : T);
Begin

 SetLength(FItems, Length(FItems) + 1);
 FItems[High(FItems)] := AValue;

End;

Function TRec<T>.ToString : String;
Var

 i : Integer;

Begin

 Result := '';

 For I := Low(FItems) To Pred(High(FItems)) Do
  Result := Result + FItems[i].ToString + sLineBreak;

 Result := Result + FItems[High(FItems)].ToString;

End;

var

 r : TRec<Integer>;

Begin

 r.Add(1);
 r.Add(2);
 r.Add(3);
 r.Add(4);
 r.Add(5);

 WriteLn(r.ToString);

End.