关于memo的问题？(100分)

A

a2020a

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #1

我想用memo做一个计算线行代数中，行列式或矩阵的问题，请问如何实现啊？
比如说：输入矩阵或行列式时各元素之间用空格或逗号格开，
例：a1 a2 a3 b1 b2 b3
a4 a5 a6 b4 b5 b6
a7 a8 a9 b7 b8 b9
怎么样才能取得ai(i=1,2,3……9）这些数啊。
具体怎么写啊？

 

R

rongyujohny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #2

你可以利用规律取出这些字符串啊，比如 a1,a2,a2,b1,b2,b3都相隔一个空格
这样用字符串函数分别取出

 

A

a2020a

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #3

可以具体一点吗？

 

W

wjh_wy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #4

没有听明白，能说清楚一点吗？

 

A

a2020a

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #5

也就是说怎样才能把ai和bi这些数取出来啊（ai和bi这些数都输入在memo里，利用空格格开）
？进行算术运算啊？？？？

 

S

SPYSKY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #6

因為排列比較規則,可用循環和Copy(Memo.line,j,2)完成.

 

A

a2020a

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #7

具体一点啊，写个例子吧，谢谢大家了。

 

L

l.w.wei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #8

令C为3*6的二维数组。A,B为3*3的二维数组。
for i:=0 to 2 do
for j:=0 to 2 do
A(i,j):=C(i,j);

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #9

procedure TForm1.Button1Click(Sender: TObject);
var
n,i,j:integer;
s:tstrings;
a:array[1..9] of integer;
begin
memo1.Clear;
s:=tstringList.Create ;
memo1.Lines.add('11,22,33');
memo1.Lines.add('4,422,433');
memo1.Lines.add('411,522,533');
n:=0;
for i:=0 to memo1.Lines.Count-1 do
begin
s.CommaText:=memo1.Lines;
for j:=0 to s.Count-1 do
begin
inc;
a[n]:=strtoint(s[j]);
end;
end;
s.free;
for i:=1 to 9 do showmessage(inttostr(a));
end;

 

L

l.w.wei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #10

jsxjd的方法我试过了，GOOD!不过象TStrings我是没有用过拉，看来得倍加努力啊。

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #11

为什么不用Tstringgrid呢，用memo多麻烦

 

A

a2020a

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #12

多人接受答案了。