首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

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

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

  1. 首先,确保已经定义了一个类型记录的类型,例如: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;
  2. 然后,创建一个TList<>对象,指定类型为TMyRecord:
  3. 接下来,创建一个新的类型记录实例,并设置其字段的值:
  4. 最后,将新的记录实例添加到TList<>中:

完整的示例代码如下:

代码语言:txt
复制
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个记录。然后,它遍历列表并输出每个记录的字段值。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

  • 如何利用git shell提交代码到github

    在很早之前我根据找到的一些资料以及自己的实践总结了一篇如何将VS2015上的代码上传到GitHub上,后来我发现有小伙伴私信我,说跟我上面写的不一样,但是那段时间也比较忙,当我发现有人私信的时候差不过过了一个多月了,也就没有回复,最近重新装了系统,在重新下载相关插件时速度太慢了,实在是受不了,故在网上找了些资料,来试试使用命令行,将项目上传到GitHub上,废话不多说,直接说操作步骤。 1. 首先在GitHub上新建一个代码仓库,并记录下它的地址: 2. 打开GitHub客户端中的git shell(客户端请在网上自行下载) 3. 利用cd命令切换到项目目录下 4. 利用命令git init 初始化一个代码仓库 5. 利用命令 git add . (注意后面有一个点,代表将本地项目工作区的所有文件添加到暂存区) 6. 利用命令 git commit -m “注释” 将暂存区的文件添加到本地的代码库中 7. 将本地代码库关联到GitHub上

    02
    领券