|
Comienzan
// comparar dos cadenas obviamente diferentes
CompareStrings ( "Hola", "mundo"); // comparar cadenas idénticas CompareStrings ( 'Hola 2 tú "," Hola 2 le'); // Las letras mayúsculas siguen minúsculas en Delphi CompareStrings ( 'ABC', 'abc'); // Todas las cartas siguen los números en Delphi CompareStrings ( 'abc', '123'); fin; // Compara dos cadenas, y mostrar que es más grande que los otros TForm1.CompareStrings procedimiento ( cadena1 const, string2: string); var resultado: Integer; comience // Compara algunas cadenas resultado: = AnsiCompareStr (cadena1, cadena2); si el resultado <0 entonces ShowMessage (cadena1 + '<' + cadena2); si el resultado = 0 entonces ShowMessage (cadena1 + '=' + cadena2); si el resultado> 0 entonces ShowMessage (cadena1 + '>' + cadena2); fin;
No entendi como aplicarlo al codigo del login y que sea sensible a las mayusculas y minusculas...no hubico como compararlos...alguien podria ayudarme.
if FMCorp.qry_login.FieldByName('contrasenia').AsString = txtPass.Text then
begin
MessageBox(Handle, 'La contraseña es correcta!', 'LoyalCorp', MB_ICONINFORMATION+MB_OK);
este codigo no funciona para la sensibilidad de mayusculas y minusculas.
|