有关数组比较的问题，怎么来比较两个数组是否完全相等？(30分)

S

Spring_Thunder

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #1

procedure TForm1.Button1Click(Sender: TObject);
var
Test,Temp:array[0..6] of integer;
i:integer;
begin
for i:=0 to 6 do
begin
Test:=i;
Temp:=i;
end;
if Test=Temp then showmessage('相等')
else showmessage('不等');
end;

好像这样不行，报这个错
Operator not applicable to this operand type
我记得好像是在哪儿看到过比较两个数组的问题，可是就是记不起在那里了。
我不想用循环来比较，还望高手们帮一下忙！

 

Y

yaya8163

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #2

for i:=0 to 5 do
if test=temp then
showmessage('相等')
else
begin
showmessage('不等');
break;
end;

 

C

copy_paste

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #3

if CompareMem(@Test, @Temp, SizeOf(Test)) then
ShowMessage('yes') else ShowMessage('no')

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #4

楼上

 

D

dragonlee007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #5

分數太少了

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #6

gz

 

D

dragonlee007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #7

Please refer to :

[red]...................................................[/red]
procedure TForm1.Button1Click(Sender: TObject);
var
temp,temp1:array[0..3] of integer;
s1,s2:string;
i:integer;
begin
for i:=0 to 3 do
begin
temp:=1;
temp1:=1
// if temp1:=2 then show 'no '
s1:=inttostr(temp );
s2:=inttostr(temp1);
end;
if s1=s2 then
showmessage('Yes')
else
showmessage('no');
end;
[red]..............................................[/red]

Perhaps this will help you

 

S

Spring_Thunder

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #8

谢谢 Copy_Paste

 

D

dragonlee007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #9

Copy_Paste;
you are so smart .....


i will store it.