如何将类型记录的记录添加到TList <>？

将类型记录的记录添加到TList<>，可以通过以下几个步骤来完成：

首先，确保已经定义了一个类型记录的类型，例如：TMyRecord = record Field1: Integer; Field2: string; Field3: Boolean; end;MyList: TList<TMyRecord>;var NewRecord: TMyRecord; begin NewRecord.Field1 := 1; NewRecord.Field2 := 'Hello'; NewRecord.Field3 := True; MyList.Add(NewRecord); end;
然后，创建一个TList<>对象，指定类型为TMyRecord：
接下来，创建一个新的类型记录实例，并设置其字段的值：
最后，将新的记录实例添加到TList<>中：

完整的示例代码如下：

program AddRecordToList;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Generics.Collections;

type
  TMyRecord = record
    Field1: Integer;
    Field2: string;
    Field3: Boolean;
  end;

var
  MyList: TList<TMyRecord>;

begin
  try
    MyList := TList<TMyRecord>.Create;
    try
      // Add records to the list
      for var i := 1 to 10 do
      begin
        var NewRecord: TMyRecord;
        NewRecord.Field1 := i;
        NewRecord.Field2 := 'Hello ' + IntToStr(i);
        NewRecord.Field3 := i mod 2 = 0;
        MyList.Add(NewRecord);
      end;

      // Output the list
      for var Record in MyList do
      begin
        Writeln('Field1: ', Record.Field1);
        Writeln('Field2: ', Record.Field2);
        Writeln('Field3: ', Record.Field3);
        Writeln;
      end;
    finally
      MyList.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

这个示例代码创建了一个TList<TMyRecord>对象，并向其中添加了10个记录。然后，它遍历列表并输出每个记录的字段值。