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

← →
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]

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

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

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

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

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

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

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

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