program project1;
{$mode objfpc}{$H+}
{$ModeSwitch advancedrecords}
type
TGridposition = record
X : integer;
y : integer;
class operator =(left, right: TGridposition): Boolean;
end;
var
NEWCELL : TGridposition;
OLDCELL : TGridposition;
{ TGridposition }
class operator TGridposition.=(left, right: TGridposition): Boolean;
begin
Result := (left.X = right.X) and (left.y = right.y);
end;
begin
OLDCELL.X := 10; OLDCELL.y := 100;
NEWCELL.X := 10; NEWCELL.y := 100;
if NEWCELL = OLDCELL then
writeln('compare: true')
else
writeln('compare: false')
end.