ocr: Type Point = Class (TObject) Private FX,FY : Longint; Functian GetCoord (Index : Integer): Longint - i Pracedure SetCoord (Index : Integer; Value : longint ): Public Property X : Longint index 1 read GetCoord Write SetCoord Property Y: Longint index 2 read GetCoord Write SetCoord Property Coords [Index : Integer] Read GetCoord; end; Pracedure TPoint. SetCoord (Index : Integer; : Value : Longint ): begin Case Index af 1: FX:= Value; 2 FY : Value; end; end; Functian TPoint. GetCoord ( INdex : Integer) : Longint; begin Case Index af 1: Result := FX; 2: Result := FY; end; end; Var P: : TPoint; beg ...
