Question

delphi 如何单独给一维数组的某个列赋值

例如str1=‘abcde’，str2=‘ymmda’现在要将str1的值赋给a[1],str2的值赋给a[2]该怎么实现啊？ 有范例最好了。谢谢！急啊！

Answer 1

a[1]:=str1;
a[2]:=str2;
就这样- -

如果要循环的话，必须把值先添加到集合里面，比如用 StringsList;

s:=TStingsList.Create;
s.add(str1);
s.add(str2);
for i:=1 to 2 do
begin
a[i]:=s[i-1];
end;

Answer 2

var
a : Array[0..9] of string;
str1, str2: string;
i: integer;
begin
str1 := 'abcde';
str2 := 'ymmda';

case i of
0:
begin
a[i] := str1;
end;
1:
begin
a[i] := str2;
end;
end;
end;

Answer 3

const
arr1:array[0..4] of string=('abcde','ymmda','2','3');
var
i1:integer;
s:TStringList;
begin
s:=TStringList.Create;
for i1:=low(arr1) to high(arr1) do
begin
s.Add(arr1[i1]);
end;

追问

不行啊。

截图这段代码 我就是想实现当i=1时把对应的那个SONo赋值给ArrayStr[1]

当i=2时把对应的那个SONo赋值给ArrayStr[2]以此类推

追答

SONO是TStringList?

AsString给string;然后压入数组，然后再SONO.add(string)

追问

SONO 声明的是string 因为PrdTranDm.cdsWipStk.FieldByName('SONO') 是String型
string到TStringList要怎么转换啊，好像没有StringToTStringList函数。

追答

那就应该是

SONO为TStringList.
而它上面一行的SONO应该为string类型。

你简单的放一个中间变量即可。