Determina si dos valores son equivalentes o no.
Unidad
GHFRTL
Declaración
Código Delphi
[-]
Function ghEquals (Const Value1, Value2 :String;
Const CompareType :TghStrCompare = ghscLocaleAnyCase) :Boolean;
Overload;
Function ghEquals (Const Value1 :String; Const StartIndex :Integer;
Const Value2 :String;
Const CompareType :TghStrCompare = ghscLocaleAnyCase) :Boolean;
Overload;
Function ghEquals (Const Value1, Value2 :Variant) :Boolean; Overload;
Function ghEquals (Const Value1, Value2 :TGUID) :Boolean; Overload;
Descripción
La función ghEquals permite comprobar si dos valores son iguales o equivalentes, en situaciones donde el operador relacional de igualdad (signo
=) no resulta efectivo.
La primera sobrecarga de la función compara dos cadenas de caracteres dadas, bajo el criterio indicado por un tercer parámetro, CompareType, según el cual debe o no debe distinguir entre letras mayúsculas y minúsculas o entre letras con y sin signos diacríticos (acentos). La segunda sobrecarga de la función trabaja de forma similar a la anterior, solo que compara la primera cadena dada a partir de cierta posición de carácter (parámetro StartIndex) contra la segunda cadena completa. La tercera sobrecarga sirve para comparar el resultado de dos expresiones Variant, y comprobar si son variantes de valores equivalentes y además del mismo tipo, es decir, variantes idénticos. La cuarta sobrecarga permite determinar si dos valores de tipo TGUID (identificador único global) son exactamente el mismo.
Si se cumple la comprobación de igualdad, ghEquals devuelve el valor de True; en caso contrario el resultado es False.
Parámetros
Value1 — Primer valor a comparar. Expresión de tipo String, Variant, compatible con Variant o TGUID.
Value2 — Segundo valor a comparar. Expresión de tipo String, Variant, compatible con Variant o TGUID.
CompareType — Tipo de comparación a realizar con las cadenas de caracteres dadas. Debe ser alguna de las constantes que define el tipo de dato
TghStrCompare. Este parámetro puede omitirse, su valor predeterminado es
ghscLocaleAnyCase.
StartIndex — Indica el índice de carácter desde el cual se tomará el valor de la cadena de caracteres Value1 para compararlo con la cadena Value2. Este parámetro es útil para descartar caracteres que se encuentren al comienzo de Value1, como puede ser algún prefijo.
Ejemplos
En el siguiente bloque de código, la condición del primer If no se cumple pero la del segundo sí. Las cadenas de caracteres 'Titanic' y 'titanic' no son exactamente iguales, pero sí equivalentes.
Código Delphi
[-]Var
S :String;
Begin
S := 'Titanic';
If S = 'titanic' Then ShowMessage ('');
If ghEquals (S, 'titanic') Then ShowMessage ('The strings are equivalent.');
En el siguiente bloque de código, las condiciones del primer y del tercer If no se cumplen pero las del segundo y cuarto sí. Las cadenas de caracteres 'México', 'Mexico' y 'MEXICO' no son exactamente iguales, y para la función nativa ANSISameText (que es insensible a mayúsculas y minúsculas) tampoco son equivalentes. En cambio tales valores String sí son equivalentes para la función ghEquals, cuando se usa la opción
ghscSimple (ignorar acentos) o
ghscSimpleAnyCase (ignorar acentos y no distinguir entre mayúsculas y minúsculas).
Código Delphi
[-] S := 'México';
If S = 'Mexico' Then ShowMessage ('');
If ghEquals (S, 'Mexico', ghscSimple) Then ShowMessage ('The strings are equivalent.');
If ANSISameText (S, 'MEXICO') Then ShowMessage ('');
If ghEquals (S, 'MEXICO', ghscSimpleAnyCase) Then ShowMessage ('The strings are equivalent.');
En el siguiente bloque de código, la condición del primer If no se cumple pero la del segundo sí. La subcadena de caracteres 'ffffffff' y la cadena 'FFFFFFFF' no son exactamente iguales, pero sí equivalentes.
Código Delphi
[-] S := '0xffffffff';
If Copy (S, 3, MaxInt) = 'FFFFFFFF' Then ShowMessage ('');
If ghEquals (S, 3, 'FFFFFFFF') Then ShowMessage ('The strings are equivalent.');
En el siguiente bloque de código, la condición del primer If se cumple pero la del segundo no. El operador
= determina que los valores de las variables Variant V1 y V2 son equivalentes aunque no sean del mismo tipo: el primer variante es un valor de punto flotante (tipo varDouble), mientras que el segundo es una cadena de caracteres (tipo varString). Esta diferencia de tipos hace que la función ghEquals devuelva False.
Código Delphi
[-]Var
V1, V2 :Variant;
Begin
V1 := 3.141516;
V2 := '3.141516';
If V1 = V2 Then ShowMessage ('The variants are equivalent (but not equal).');
If ghEquals (V1, V2) Then ShowMessage ('');
En seguida cambiamos el valor de V2, asignándole el mismo valor de punto flotante que tiene V1. Ahora ghEquals devuelve True, por ser V1 y V2 dos variantes idénticos.
Código Delphi
[-] V2 := 3.141516;
If ghEquals (V1, V2) Then ShowMessage ('The variants are identical.');
En el siguiente bloque de código, la condición del If se cumple porque las constantes CLASS_DOMDocument60 y ghciMSXMLDoc60 tienen exactamente el mismo valor TGUID.
Código Delphi
[-]Const
CLASS_DOMDocument60 :TGUID = '{88D96A05-F192-11D4-A65F-0040963251E5}';
Begin
If ghEquals (CLASS_DOMDocument60, ghciMSXMLDoc60) Then ShowMessage ('The GUIDs are equal.');