Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); const Si : Boolean = True; No : Boolean = False; begin if Si then ShowMessage('Si'); if not No then ShowMessage('No'); end;
procedure TForm1.Button1Click(Sender: TObject); const Si : Boolean = True; No : Boolean = False; begin if Si then ShowMessage('Si'); if not No then ShowMessage('No'); end;