data[i-1,0]:=dateinfo;---賦給i行第一列 data[i-1,1]:=staidinfo;---賦給i行第二列 ——笔误吧。 以下代码测试通过: procedure TForm1.Button3Click(Sender: TObject); var data:array of array of string; j,i:word; begin i:=5; setlength(data,i); for j:=0 to i-1 do setlength(data[j],2); data[i-1,0]:=edit1.Text; data[i-1,1]:=edit2.Text; edit2.text:=data[i-1,0]; edit1.Text:=data[i-1,1]; end;
data[i-1,1]:=staidinfo;---賦給i行第二列
——笔误吧。
以下代码测试通过:
procedure TForm1.Button3Click(Sender: TObject);
var
data:array of array of string;
j,i:word;
begin
i:=5;
setlength(data,i);
for j:=0 to i-1 do
setlength(data[j],2);
data[i-1,0]:=edit1.Text;
data[i-1,1]:=edit2.Text;
edit2.text:=data[i-1,0];
edit1.Text:=data[i-1,1];
end;