var szText:array[1..5]of string; i:integer; beign for i:=1 to 5 do begin szText[i]:='ok'; end; end; 你就这么写写看吧
大体上就是这个意思的,你可以这样 szText[i]:=你的变量
将字符串变量赋值给char[][]数组!
回复人: rouqing(*冰雨&双子座奇缘*) ( ) 信誉:101 var szText:array[1..5]of string; i:integer; beign for i:=1 to 5 do begin szText[i]:='ok'; end; end; 你就这么写写看吧 UP ~~~~~ var szText:string; MyArray: array[0..32] of Char; beign szText:='hello good'; strcopy(MyArray,pchar(szText)); end;你需要的代码就是这个了!
szText:array[1..5]of string;
i:integer;
beign
for i:=1 to 5 do
begin
szText[i]:='ok';
end;
end;
你就这么写写看吧
szText[i]:=你的变量
var
szText:array[1..5]of string;
i:integer;
beign
for i:=1 to 5 do
begin
szText[i]:='ok';
end;
end;
你就这么写写看吧
UP ~~~~~
var
szText:string;
MyArray: array[0..32] of Char;
beign
szText:='hello good';
strcopy(MyArray,pchar(szText));
end;你需要的代码就是这个了!