hola amigos aqui buscando ayuda....el problema es el siguiente estoy usando un varible boolean pero al momento de ejecutarlo...me marca error..la variable es global y se llama "CambioContrasenia" Error=expected THEN but received =
Código Delphi
[-]
unit UEmpleados;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons, jpeg, ExtCtrls;
type
TFrmEmpleados = class(TForm)
PcModificarEmpleado: TPageControl;
BtnCambiaContrasenia: TTabSheet;
TabSheet3: TTabSheet;
TabSheet1: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Login: TLabel;
password: TLabel;
EdNumEmpleado: TEdit;
EdAppaterno: TEdit;
EdApmaterno: TEdit;
EdNivel: TEdit;
CmbDireccion: TComboBox;
EdNombre: TEdit;
EdLogin: TEdit;
EdPassword: TEdit;
BtnGuardar: TBitBtn;
BtnCancelar: TBitBtn;
BtnNuevo: TBitBtn;
LblClaveDireccion: TLabel;
LblEncriptado: TLabel;
CmbEmpleado: TComboBox;
Seleccionar: TLabel;
BtnModificar: TBitBtn;
LblModificaEmpleado: TLabel;
EdMNumEmpleado: TEdit;
EdMNombre: TEdit;
EdMAppaterno: TEdit;
EdMApmaterno: TEdit;
EdMNivel: TEdit;
EdMLogin: TEdit;
EdMPassword: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
CmbMDireccion: TComboBox;
BtnMActualizar: TBitBtn;
BtnMCancelar: TBitBtn;
BtnMSalir: TBitBtn;
lBLGuardaClave: TLabel;
Image1: TImage;
EdDireccionAsignada: TEdit;
LblDireccionAsignada: TLabel;
Label15: TLabel;
EdNuevoPassword: TEdit;
LblContrasenia: TLabel;
BitBtn1: TBitBtn;
procedure EdMPasswordExit(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BtnMCancelarClick(Sender: TObject);
procedure CmbMDireccionSelect(Sender: TObject);
procedure EdMApmaternoEnter(Sender: TObject);
procedure EdMNivelKeyPress(Sender: TObject; var Key: Char);
procedure CmbMDireccionClick(Sender: TObject);
procedure EdMPasswordClick(Sender: TObject);
procedure EdMPasswordEnter(Sender: TObject);
procedure EdMLoginClick(Sender: TObject);
procedure EdMLoginChange(Sender: TObject);
procedure EdMNivelClick(Sender: TObject);
procedure EdMNivelEnter(Sender: TObject);
procedure EdMApmaternoClick(Sender: TObject);
procedure EdMAppaternoClick(Sender: TObject);
procedure EdMAppaternoEnter(Sender: TObject);
procedure EdMNombreClick(Sender: TObject);
procedure EdMNombreEnter(Sender: TObject);
procedure BtnMActualizarClick(Sender: TObject);
procedure CmbMDireccionEnter(Sender: TObject);
procedure BtnModificarClick(Sender: TObject);
procedure CmbEmpleadoSelect(Sender: TObject);
procedure BtnCambiaContraseniaEnter(Sender: TObject);
procedure CmbDireccionEnter(Sender: TObject);
procedure CmbDireccionClick(Sender: TObject);
procedure EdNumEmpleadoKeyPress(Sender: TObject; var Key: Char);
procedure EdNivelKeyPress(Sender: TObject; var Key: Char);
procedure BtnCancelarClick(Sender: TObject);
procedure CmbDireccionSelect(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure EdPasswordEnter(Sender: TObject);
procedure EdLoginEnter(Sender: TObject);
procedure EdNivelEnter(Sender: TObject);
procedure EdApmaternoEnter(Sender: TObject);
procedure EdAppaternoEnter(Sender: TObject);
procedure EdNombreEnter(Sender: TObject);
procedure EdNumEmpleadoEnter(Sender: TObject);
procedure EdPasswordClick(Sender: TObject);
procedure EdLoginClick(Sender: TObject);
procedure EdNivelClick(Sender: TObject);
procedure EdApmaternoClick(Sender: TObject);
procedure EdAppaternoClick(Sender: TObject);
procedure EdNombreClick(Sender: TObject);
procedure EdNumEmpleadoClick(Sender: TObject);
procedure BtnGuardarClick(Sender: TObject);
procedure BtnNuevoClick(Sender: TObject);
private
procedure limpiar;
procedure CancelaEdit;
procedure HabilitaEdit;
procedure CancelaEditModifica;
procedure LimpiarEditModifica;
public
end;
var
FrmEmpleados: TFrmEmpleados;
CambioContrasenia: boolean;
implementation
uses Uconexion;
{$R *.dfm}
procedure TFrmEmpleados.BtnMActualizarClick(Sender: TObject);
var global : integer;
begin
global:=0;
if EdMnombre.Text='' then
begin
global:=1;
EdMnombre.color:=clInactiveCaptionText;
end;
if EdMAppaterno.Text='' then
begin
global:=1;
EdMAppaterno.color:=clInactiveCaptionText;
end;
if EdMApmaterno.Text='' then
begin
global:=1;
EdMApmaterno.color:=clInactiveCaptionText;
end;
if EdMNivel.Text='' then
begin
global:=1;
EdMNivel.color:=clInactiveCaptionText;
end;
if EdMLogin.Text='' then
begin
global:=1;
EdMLogin.color:=clInactiveCaptionText;
end;
if EdMPassword.Text=' ' and CambioContrasenia = False then
begin
global:=1;
EdMPassword.color:=clInactiveCaptionText;
end;
if global = 1 then
begin
Application.MessageBox('Rellene los campos marcados para continuar', 'Error', MB_OK + MB_ICONERROR);
global:=0;
end
else
end;