Home > Enterprise >  Expression type must be BOOLEAN dont know why
Expression type must be BOOLEAN dont know why

Time:10-28

Here is where the error is in my Code

This is the Code:

{=================================================================================}

procedure TFormGameSettings.pnlPlayerColor1Click(Sender: TObject);
begin
  if PlayerColorDialog1.Execute then
  begin
    FSpieler1farbe := PlayerColorDialog1.Color;
    PanelColorChange;
  end;
end;

{=================================================================================}
procedure TFormGameSettings.pnlPlayerColor2Click(Sender: TObject);
begin
   if PlayerColorDialog2.Execute then
  begin
    FSpieler1farbe := PlayerColorDialog2.Color;
    PanelColorChange;
  end;
end;
{=================================================================================}

i dont really know how to fix the problem im pretty new to delphi. Before i changed the color in the "PlayerColorDialog2.Color;" everything was fine know i get BOOLEAN.

Thank you for your time.

CodePudding user response:

"If ErrorInsight keeps on marking errors in code where clearly are none, try to close the project and reopen it!" @Delphi Coder

Your comment helped, I guess it was a bug.

Thanks a lot!

  • Related