Section courante

A propos

Section administrative du site

COMPARESTR

 Compare une chaine
Delphi/Kylix/Lazarus System

Syntaxe

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

Paramètres

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

Description

Cette fonction effectue la comparaison de deux chaines de caractères en tenant compte des différences majuscule et minuscule.

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 :

CompareStr('Gladir','Gladir') = 0
CompareStr('Gladir','Gladir.com') = -4
CompareStr('Gladir.com','Gladir') = 4
CompareStr('ABC','123') = 16
CompareStr('123','ABC') = -16
CompareStr('ABC','abc') = -32
CompareStr('abc','ABC') = 32

Voir également

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

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