如何把控件中的内容赋给2维数组？(60分)

L

lj.ah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #1

我有2个listbox，皆有不定个items，怎么样能够将他们赋给一个2维数组，
然后我经过一些运算（如求逆），在输出到第三个listbox中。怎么实现呢？
分不多了，不好意思。[gold][/gold]

 

J

jzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #2

或许还有更好的方法，但我就会这个
procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Integer;
aRy : array[0..1, 0..9] of string;
begin
ListBox3.Items.Clear;
for I := 0 to ListBox1.Items.Count - 1 do
aRy[0,I] := ListBox1.Items;
aRy[0,I] := #0;
for J := 0 to ListBox2.Items.Count - 1 do
aRy[1, J] := ListBox2.Items[J];
aRy[1,J] := #0;
I:=0;
J:=0;
repeat
ListBox3.Items.Add(ary[0,i]);
Inc(I);
until aRy[0,I] = #0;
repeat
ListBox3.Items.Add(ary[1,j]);
Inc(j);
until aRy[1,j] = #0;
end;

 

L

LuJuhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #3

var
arSrc: array [0..1] of array of real;
cnt: array [0..1] of integer;
i:integer;
begin
for i:= 0 to listbox1.count - 1 do begin
SetLength(arSrc[0],(i + 1));
arSrc[0] := strtofloat(listbox1.items);
end;
cnt[0] := ListBox1.Count;

for i:= 0 to listbox2.count - 1 do begin
SetLength(arSrc[1],i + 1);
arSrc[1] := strtofloat(listbox2.items);
end;
cnt[1] := ListBox2.Count;

end;

 

L

lj.ah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #4

lujuhe的容易懂

 

L

lj.ah

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-18

• #5

#0是啥意思？

 

J

jzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-18

• #6

#0相当ASCII表中第0个字符,与NULL一个意思