Скачать: CL | DM;

Как определить равенсво двух обьектов тип 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 проверяются только ссылки,
> а они естественно разные!!!

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

---

← →
Ozone ©   (2004-10-15 13:57) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.043 c