如何初始化数组和记录

关注

转载最新推荐文章于 2026-03-16 16:56:12 发布 1k 阅读 AI 写同款· GEO 优化 ›

改变二维数组中某一项的某一个值；给某个多维数组初始化赋值，追加值 1.改变二维数组中某一项的某一个值 1.1场景在小程序中，setData的数据量有限(好像是1024，记不太清了，不管是多少，反正有限制)，当你给列表中的某一个人点赞后，只需要改变那个人的点赞的数据状态即可，其它的数据都不用改变，所以此时就需要取到点赞的状态值，并对其修改，然后再赋值给listarr。可以参考以下思路，是二维的，多维的类似。 1.2思路 // 例如在这种，二维数组中，... 阅读详情

delphi提供一个fillchar方法，使用它可以将数组初始化。

1.建一项目，向其中添加一个bottom控件

2.在该控件的onclick事件中添加代码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type
TIntRec = record //定义记录
i1: integer;
i2: integer;
i3: integer;
i4: integer;
i5: integer;
end;
var
IntArray: array[0..4] of integer; //定义数组
i: integer;
s: string;
IntRec: TIntRec;
begin
//初始化数组
//如果没有下面一行代码，那么数组的值为随机数
FillChar(IntArray,SizeOf(IntArray),0);
for i := low(IntArray) to high(IntArray) do
s := s+IntToStr(IntArray);
form1.Caption := 'IntArray: '+s;

//初始化记录
//如果没有下面一行代码，那么记录的值为随机数
FillChar(IntRec,SizeOf(IntRec),0);
form1.Caption := form1.Caption+' '+'IntRec: '+IntToStr(IntRec.i1)+IntToStr(IntRec.i2)+IntToStr(IntRec.i3)+IntToStr(IntRec.i4)+IntToStr(IntRec.i5);
end;

end.

收录于