如何比较两个 TPoint 类型, 直接用 = 不行(50分)

S

savetime

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #1

难道记录型要将子区域一个一个比较

 

B

BeginDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #2

if (point1.x=point2.x) and (point1.y=point2.y) then ......

DELPHI我觉得应该给PASCAL增加算符重载,DELPHI中为什么仅能重载[],真是......

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #3

没有操作符重载啊
不过用[]还是有方法的：
property items[index]:YourType read XXX write XXX;

 

J

Jhdandcl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #4

比较内存,
comparemem

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #5

tpoint是一个结构，不是类！

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #6

自己做个函数吧，可以重载一些常用记录类型数据的比较。

 

Y

yeskert1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-07

• #7

tpoint实际上是一段内存的首地址，是没有类型的指针。
如果要比较，必须转换成同一种类型的指针。

 

S

savetime

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-07

• #8

to yeskert1
如何转换

 

Y

yeskert1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-07

• #9

直接赋值
var p:Tpoint;
sp,tmp:^string;
begin
new(sp);
sp^:='asdf';
p:=sp;
tmp:=sp;
tmp:=p;
...
end;

 

M

mygod!

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-07

• #10

只能手工比较记录成员,,,,这是我的方法,众大侠有更好的方法我领教,,,,

 

S

savetime

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #11

多人接受答案了。