Record in Liste speichern

[DeddyH]

Delphi-Quellcode:

var
  Liste: TList<TTest>;
  test, test2: TTest;
begin
  test.test1 := 1;
  test.test2 := 999;
  Liste := TList<TTest>.Create;
  try
    Liste.Add(test);
    ShowMessage(IntToStr(Liste.Count));
    test2 := Liste.Items[0];
    ShowMessage(IntToStr(test2.test2));
  finally
    Liste.Free;
  end;
end;