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

Почему возникает ошибка в следующей программе?   Найти похожие ветки 

← →
Raaer   (2007-01-23 18:19) [0]

{$APPTYPE CONSOLE}
uses
 SysUtils;
type
 T_Point=record x,y: integer; end;
var  
 a: array[1..10] of T_Point;
 b: T_Point;
begin
 if (a[3]<>b) then writeln("1")
 else writeln("2");
 readln;
end.

Ошибка: incompatible types
В чем дело? Типы же одинаковые!
Пожалуйста, объясните!
Заранее благодарен!

---

← →
DiamondShark ©   (2007-01-23 18:22) [1]

Потому что операция <> не применима к записям.

---

← →
Skier ©   (2007-01-23 18:24) [2]

мат. часть бы вам поизучать.

---

← →
Stexen ©   (2007-01-23 18:26) [3]

Не все типы можно так сравнивать!!!
Сравнивай более простые типы, например
(a[3].x <> b.x)and(a[3].y <> b.y)

---

← →
Skier ©   (2007-01-23 18:29) [4]

см. функцию PointsEqual в Classes.pas

---

← →
Stexen ©   (2007-01-23 18:31) [5]

> см. функцию PointsEqual в Classes.pas

Ради одной функции подрубать здоровенный модуль увеличивая при этом екзешник!!!смысл?

---

← →
Skier ©   (2007-01-23 18:49) [6]

>Stexen ©   (23.01.07 18:31) [5]

> Ради одной функции подрубать здоровенный модуль увеличивая
> при этом екзешник!!!

И что ?! Он весь "подрубится" что ли ?!

---

← →
Stexen ©   (2007-01-23 18:51) [7]

Ну смотря что использует, а то зная дельфи, там начнется: использует класс, который включает процедуру, которая использует 10 функций, которые еще содержат по другому классу которые содержат еще что нибудь, так глядишь весь модуль и подрубит!Так что я боязненно отношусь к токой инициативе!

---

← →
Skier ©   (2007-01-23 19:00) [8]

> Так что я боязненно отношусь к токой инициативе!

Зря ! Ведь речь идёть только об одной функции!

---

← →
Stexen ©   (2007-01-23 19:07) [9]

> Зря ! Ведь речь идёть только об одной функции!

Ну если функция как бы замкнутая, то не вопрос, тут согласен, а если она совсем не тривиальная, то подобные эксперименты могут привести к плачевным результатам,ну может просто это у меня такой подход, просто до того, как я узнал про аспак, я очень много извращался перестраивая код, в целях уменьшения веса!

---

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

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



Память: 0.47 MB
Время: 0.096 c