Question

delphi7如何个一维数组赋初值

Answer 1

var
i : integer;
arr1 : array[0..9] of integer;
arr2 : array[0..9] of char;
begin
//如果是初始化是给每个元素相同的初值，可以用Fillchar这个函数来
fillchar(arr1,sizeof(arr1),0);
fillchar(arr2,sizeof(arr2),#0);
//如果每个元素要赋的初值不同，只能一个个来赋值了
for i := 0 to 9 do
begin
arr1[i] := i;
end;
end;

Answer 2

或者array of char这中的数组吧。
var
str : string;
Pbuf: array[0..100]of char;//array[0..100]of byte
Len : integer;
begin
str := 'abcdefg';
//将Str的值赋给数组Pbuf
strpcopy(@pbuf,Str);
end;
另外,团IDC网上有许多产品团购,便宜有口碑

Answer 3

或者array of char这中的数组吧。
var
str : string;
Pbuf: array[0..100]of char;//array[0..100]of byte
Len : integer;
begin
str := 'abcdefg';
//将Str的值赋给数组Pbuf
strpcopy(@pbuf,Str);
end;

Answer 4

来个动态数组的例子
var
i:Integer;
arr1 : array of integer;
begin
SetLength(arr1,10);//分配10数组
//下面列出俩中方式初始化
Fillchar(arr1,sizeof(arr1),#0);

for i := Low(arr1) to High(arr1) do
begin
arr1[i] := 0;//这里可以赋你自己想要的值
end;
end;