编译时出现错误Left side cannot be assigned to 在线等

Question

软件是从网上下载的
这是下载地址http://dl8.winu.cn/control/2003100921363623735.rar
编译时出现
[错误] HexEditor.pas(1727): Left side cannot be assigned to
[错误] HexEditor.pas(1758): Left side cannot be assigned to
[致命错误] sample1.pas(7): Could not compile used unit 'HexEditor.pas'
var
   pTP  : TLongPoint;const
     pCan:  Boolean = True;
   pClicked : Boolean = False;
begin
     Result := Inherited SelectCell ( aCol , aRow );     if (Result and fVariableLineLength and OutOfBounds ( aCol , aRow ))
     then
         Result := False;     if not pCan
     then
         Exit;
     try
        pCan := false;//[color=#FF0000]出现错误[color=#FF0000]
        if Result
        then begin
             // 黚erpr黤en, ob linke maustaste oder shift gedr點kt, sonst selection zur點ksetzen
             if not (IsKeyDown ( VK_SHIFT) or IsKeyDown ( VK_LBUTTON) )
             then
                 ResetSelection ( True );             // 黚erpr黤en, ob au遝rhalb der DateiGr鲞e
             if GetPosAtCursor ( aCol , aRow ) >= DataSize
             then begin
                  GetPosAtCursor ( Col , Row );
                  pTP := GetCursorAtPos ( DataSize - 1 , fPosInChars );
                  MoveColRow ( pTP.x , pTP.y , True , True );
                  Result := False;
             end
             else
             if aCol = (2 + fBPL2 )
             then begin
                  Result := False;
                  if IsKeyDown ( VK_LBUTTON )
                  then begin
                       aCol := aCol -1;
                       aCol := Max ( 2 , aCol );
                       MoveColRow ( aCol , aRow , True , True );
                       Exit;
                  end;
             end;        end;
     finally
            pCan := True;//[color=#FF0000]出现错误[color=#FF0000]
     end;end;

Answer 1

pCan是Const，不能赋值 
完全同意楼上的

Answer 2

在
const
    pCan:  Boolean = True; 
这一句前加上
{J+}成
{J+}
const
    pCan:  Boolean = True; 
再试试

Answer 3

左侧不能赋值
var
  pTP  : TLongPoint;  pCan:  Boolean ;
  pClicked : Boolean = False;
begin
    pCan := True;
    Result := Inherited SelectCell ( aCol , aRow );    if (Result and fVariableLineLength and OutOfBounds ( aCol , aRow ))
    then
        Result := False;    if not pCan
    then
        Exit;
    try
        pCan := false;//[color=#FF0000]出现错误[color=#FF0000]
        if Result
        then begin
            // 黚erpr黤en, ob linke maustaste oder shift gedr點kt, sonst selection zur點ksetzen
            if not (IsKeyDown ( VK_SHIFT) or IsKeyDown ( VK_LBUTTON) )
            then
                ResetSelection ( True );            // 黚erpr黤en, ob au遝rhalb der DateiGr鲞e
            if GetPosAtCursor ( aCol , aRow ) >= DataSize
            then begin
                  GetPosAtCursor ( Col , Row );
                  pTP := GetCursorAtPos ( DataSize - 1 , fPosInChars );
                  MoveColRow ( pTP.x , pTP.y , True , True );
                  Result := False;
            end
            else
            if aCol = (2 + fBPL2 )
            then begin
                  Result := False;
                  if IsKeyDown ( VK_LBUTTON )
                  then begin
                      aCol := aCol -1;
                      aCol := Max ( 2 , aCol );
                      MoveColRow ( aCol , aRow , True , True );
                      Exit;
                  end;
            end;        end;
    finally
            pCan := True;//[color=#FF0000]出现错误[color=#FF0000]
    end;end; 

Answer 4

pCan的声明不用const，改用var
const传的是值，是不变的，var传的才是可变的