Как определить равенсво двух обьектов тип Tpicture?

← →
TeNY © (2004-10-15 13:30) [0]

Как определить равенсво двух обьектов тип Tpicture?
Сравнение типа

var pict1,pict2:tpicture;
begin
tpict1:=tpicture.create;
tpict2:=tpicture.create;
tpict1:=image1.picture;
tpict2.assign(pict1);
if Pict1=Pict2 then showmessage("Picture идентичны ...")

всегда выдает False но ведь обьекты равны?

← →
yuramag © (2004-10-15 13:43) [1]

Когда пишешь Pict1=Pict2 проверяются только ссылки,
а они естественно разные!!!

← →
TeNY © (2004-10-15 13:53) [2]

извинясь букву t перед pict1 и pict2 случайно напечатал.НО вопрс остается

← →
TeNY © (2004-10-15 13:54) [3]

> yuramag © (15.10.04 13:43) [1]
> Когда пишешь Pict1=Pict2 проверяются только ссылки,
> а они естественно разные!!!

а как проверить сами обьекты?

http://delphimaster.net/view/8-1095095132/

Как определить равенсво двух обьектов тип Tpicture? Найти похожие ветки