Cannot compile this unit (error: argument cannot be assigned to)

Forum > Windows

(1/1)

CandyMan30:
unit fv2RectHelper;

{$mode delphi}{$H+}

interface

uses
Classes, windows;

type
{ TPointHelper }

TPointHelper = record helper for TPoint
function IsEmpty:Boolean;
function Equals(P1:TPoint):Boolean;
Function Add(P1:TPoint):TPoint;
Function SubStract(P1:TPoint):TPoint;
Procedure LoadFromStream(const S:TStream);
Procedure SaveToStream(const S:TStream);
end;

{ TRectHelper }

TRectHelper = record helper for TRect
function A: TPoint; { Corner points }
function B: TPoint; { Corner points }
FUNCTION IsEmpty: Boolean;
FUNCTION Equals (R: TRect): Boolean;
FUNCTION Contains (P: TPoint): Boolean;
PROCEDURE Copy (R: TRect);
PROCEDURE Union (R: TRect);
PROCEDURE Intersect (R: TRect);
PROCEDURE Move (ADX, ADY: Integer);
PROCEDURE Grow (ADX, ADY: Integer);
Function Size:TPoint;
PROCEDURE Assign (XA, YA, XB, YB: Integer);
Procedure LoadFromStream(const S:TStream);
Procedure SaveToStream(const S:TStream);
end;

PROCEDURE CheckEmpty (Var Rect: TRect);

implementation

{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++)
TRect OBJECT METHODS
(+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
PROCEDURE CheckEmpty (Var Rect: TRect);
BEGIN
With Rect Do Begin
If (A.X >= B.X) OR (A.Y >= B.Y) Then Begin { Zero or reversed }
A.X := 0; { Clear a.x } // ERROR IN THIS LINE
A.Y := 0; { Clear a.y } // ERROR IN THIS LINE
B.X := 0; { Clear b.x } // ERROR IN THIS LINE
B.Y := 0; { Clear b.y } // ERROR IN THIS LINE
End;
End;
END;

{ TPointHelper }

function TPointHelper.IsEmpty: Boolean;inline;
begin
result :=(x=0) and (y=0)
end;

function TPointHelper.Equals(P1: TPoint): Boolean;
begin
result := (x=P1.x) and (y=P1.y);
end;

function TPointHelper.Add(P1: TPoint): TPoint;
begin
result.x:=x+P1.x;
result.y:=y+P1.y;
end;

function TPointHelper.SubStract(P1: TPoint): TPoint;
begin
result.x:=x-P1.x;
result.y:=y-P1.y;
end;

procedure TPointHelper.LoadFromStream(const S: TStream);
begin
x := S.ReadDWord;
y := S.ReadDWord;
end;

procedure TPointHelper.SaveToStream(const S: TStream);
begin
s.WriteDWord(X);
s.WriteDWord(Y);
end;

{ TRectHelper }

function TRectHelper.A: TPoint;
begin
result := TopLeft;
end;

function TRectHelper.B: TPoint;
begin
result := BottomRight
end;

function TRectHelper.IsEmpty: Boolean;
begin
Result := (Left >= Right) OR (Top >= Bottom); { Empty result }
end;

function TRectHelper.Equals(R: TRect): Boolean;
begin
Result := (Left = R.Left) AND (Top = R.Top) AND
(Right = R.Right) AND (Bottom = R.Bottom); { Equals result }
end;

function TRectHelper.Contains(P: TPoint): Boolean;
begin
result := (P.X >= Left) AND (P.X < Right) AND
(P.Y >= Top) AND (P.Y < Bottom); { Contains result }

end;

procedure TRectHelper.Copy(R: TRect);
begin
TopLeft := R.Topleft; { Copy point a }
Bottomright := R.BottomRight; { Copy point b }
end;

procedure TRectHelper.Union(R: TRect);
begin
If (R.Left < Left) Then Left := R.Left; { Take if smaller }
If (R.Top < Top) Then Top := R.Top; { Take if smaller }
If (R.Right > Right) Then Right := R.Right; { Take if larger }
If (R.Bottom > Bottom) Then Bottom := R.Bottom; { Take if larger }
end;

procedure TRectHelper.Intersect(R: TRect);
begin
If (R.Left > Left) Then Left := R.Left; { Take if larger }
If (R.Top > Top) Then Top := R.Top; { Take if larger }
If (R.Right < Right) Then Right := R.Right; { Take if smaller }
If (R.Bottom < Bottom) Then Bottom := R.Bottom; { Take if smaller }
CheckEmpty(Self); { Check if empty }
end;

procedure TRectHelper.Move(ADX, ADY: Integer);
begin
Inc(Left, ADX); { Adjust Left }
Inc(Top, ADY); { Adjust Top }
Inc(Right, ADX); { Adjust Right }
Inc(Bottom, ADY); { Adjust Bottom }
end;

{--TRect--------------------------------------------------------------------)
Grow -> Platforms DOS/DPMI/WIN/OS2 - Checked 10May96 LdB
(---------------------------------------------------------------------------}
procedure TRectHelper.Grow(ADX, ADY: Integer);
begin
Dec(Left, ADX); { Adjust Left }
Dec(Top, ADY); { Adjust Top }
Inc(Right, ADX); { Adjust Right }
Inc(Bottom, ADY); { Adjust Bottom }
CheckEmpty(Self); { Check if empty }
end;

function TRectHelper.Size: TPoint;
begin
Result := BottomRight.Substract(TopLeft);
end;

{--TRect--------------------------------------------------------------------)
Assign -> Platforms All - Checked 10May96 LdB
(---------------------------------------------------------------------------}
procedure TRectHelper.Assign(XA, YA, XB, YB: Integer);
begin
Left := XA; { Hold Left value }
Top := YA; { Hold Top value }
Right := XB; { Hold Right value }
Bottom := YB; { Hold Bottom value }
end;

procedure TRectHelper.LoadFromStream(const S: TStream);

begin
TopLeft.LoadFromStream(S);
BottomRight.LoadFromStream(S);
BottomRight.Add(TopLeft);
end;

procedure TRectHelper.SaveToStream(const S: TStream);

begin
TopLeft.SaveToStream(s);
Size.SaveToStream(s);
end;

end.

lainz:

--- Quote ---A.X := 0; { Clear a.x } // ERROR IN THIS LINE
A.Y := 0; { Clear a.y } // ERROR IN THIS LINE
B.X := 0; { Clear b.x } // ERROR IN THIS LINE
B.Y := 0; { Clear b.y } // ERROR IN THIS LINE
--- End quote ---

Try this:

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---A := Point(0,0);B := Point(0,0);
Edit. It will not work because A and B are functions %)

Maybe this works:

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---TopLeft := Point(0,0);BottomRight := Point(0,0);

PascalDragon:
First of, please use [ code=pascal ][ /code ] tags (and maybe only include the relevant parts, namely the declarations and implementations of the methods involved).

Second, A and B are methods, they return a copy of TopLeft and BottomRight. The compiler does not allow you to change this temporary copy, because this code simply can't be right.

So either use TopLeft and BottomRight directly as lainz suggested or introduce a property with both a getter and setter, though you'll still not be able to use your code as is, but instead you'll have to use Point(0, 0) (as lainz suggested as well), because otherwise you'd work on a temporary variable as well.

Navigation

[0] Message Index