Section courante

A propos

Section administrative du site

ANSICOMPARETEXT

Compare des chaines de caractères texte
Delphi/Kylix/Lazarus SysUtils

Syntaxe

Function AnsiCompareText(Const S1, S2:String):Integer;

Paramètres

Nom Description
S1 Ce paramètre permet d'indiquer le premier chaine de caractères à comparer
S2 Ce paramètre permet d'indiquer le deuxième chaine de caractères à comparer

Retour

Valeur Description
0 ou supérieur Ces valeurs indique que la première chaine de caractères est supérieur à la deuxième.
0 Ces valeurs indique que la première chaine de caractères est égale à la deuxième.
0 ou inférieur Ces valeurs indique que la première chaine de caractères est inférieur à la deuxième.

Description

Cette fonction retourne le résultat d'une comparaison entre deux chaines de caractères, avec le pilote de langage, sans tenir compte des majuscule/minuscule. Ainsi, lorsqu'il comparera la même lettre minuscule avec la majuscule, il la considèrera comme étant différente.

Remarques

Exemple

Voici un exemple montrant l'utilisation de cette fonction :

  1. Program AnsICompareTextSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils;
  6.  
  7. BEGIN
  8.  WriteLn('AnsiCompareText(''Gladir'',''Gladir'') = ',AnsiCompareText('Gladir','Gladir'));
  9.  WriteLn('AnsiCompareText(''Gladir'',''Gladir.com'') = ',AnsiCompareText('Gladir','Gladir.com'));
  10.  WriteLn('AnsiCompareText(''Gladir.com'',''Gladir'') = ',AnsiCompareText('Gladir.com','Gladir'));
  11.  WriteLn('AnsiCompareText(''ABC'',''123'') = ',AnsiCompareText('ABC','123'));
  12.  WriteLn('AnsiCompareText(''123'',''ABC'') = ',AnsiCompareText('123','ABC'));
  13.  WriteLn('AnsiCompareText(''ABC'',''abc'') = ',AnsiCompareText('ABC','abc'));
  14.  WriteLn('AnsiCompareText(''abc'',''ABC'') = ',AnsiCompareText('abc','ABC'));
  15. END.

on obtiendra le résultat suivant :

AnsiCompareText('Gladir','Gladir') = 0
AnsiCompareText('Gladir','Gladir.com') = -1
AnsiCompareText('Gladir.com','Gladir') = 1
AnsiCompareText('ABC','123') = 1
AnsiCompareText('123','ABC') = -1
AnsiCompareText('ABC','abc') = 0
AnsiCompareText('abc','ABC') = 0

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - AnsiCompareStr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - CompareStr


Dernière mise à jour : Mercredi, le 18 février 2015