Ayuda, Ayuda... error en este código
Publicado por Nancy Paola (2 intervenciones) el 29/10/2007 21:57:42
Porque me marca error en el if. ¿Acaso, tengo mal el operador lógico =?
Ayudenme porfa.... Díganme cual es el error, eso es lo unico que me falta por corregir de un monton de código y de unit's.
Yo se que ha de ser un error simple, pero no me doy cuenta porque ya estoy cansada...
este es el código:
procedure TFrmConfirmarAdministrador.CmdConfirmarClick(Sender: TObject);
var
NombreAdministrador: string;
ClaveAdministrador: string;
begin
//Validar Datos del Administrador
NombreAdministrador:='vianey';
ClaveAdministrador:='02010180';
if (self.TxtNombreAdministrador = NombreAdministrador) and (self.TxtClaveAdministrador = ClaveAdministrador) then
begin
FrmMenuAdministrador.ShowModal;
end
else
begin
showmessage('Nombre y/o Clave incorrecto(s). Vuelve a intentar.');
self.Close;
end;
end;
Ayudenme porfa.... Díganme cual es el error, eso es lo unico que me falta por corregir de un monton de código y de unit's.
Yo se que ha de ser un error simple, pero no me doy cuenta porque ya estoy cansada...
este es el código:
procedure TFrmConfirmarAdministrador.CmdConfirmarClick(Sender: TObject);
var
NombreAdministrador: string;
ClaveAdministrador: string;
begin
//Validar Datos del Administrador
NombreAdministrador:='vianey';
ClaveAdministrador:='02010180';
if (self.TxtNombreAdministrador = NombreAdministrador) and (self.TxtClaveAdministrador = ClaveAdministrador) then
begin
FrmMenuAdministrador.ShowModal;
end
else
begin
showmessage('Nombre y/o Clave incorrecto(s). Vuelve a intentar.');
self.Close;
end;
end;
Valora esta pregunta


0