Section courante

A propos

Section administrative du site

ANSISTRLCOMP

Compare des chaines ANSI de longueur
Delphi/Kylix/Lazarus SysUtils

Syntaxe

Function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal):Integer;

Paramètres

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

Retour

Valeur Description
1 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 en la partie de longueur spécifié.
-1 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 ASCIZ, en mode Windows ANSI, en tenant compte des majuscule/minuscule.

Exemple

Voici un exemple d'une utilisation typique de cette fonction :

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

on obtiendra le résultat suivant :

AnsiStrLComp('Gladir','Gladir',6) = 0
AnsiStrLComp('Gladir','Gladir.com',6) = 0
AnsiStrLComp('Gladir.com','Gladir',6) = 0
AnsiStrLComp('Gladir','Gladir',10) = 0
AnsiStrLComp('Gladir','Gladir.com',10) = 1
AnsiStrLComp('Gladir.com','Gladir',10) = -1
AnsiStrLComp('ABC','123') = 1
AnsiStrLComp('123','ABC') = -1
AnsiStrLComp('ABC','abc') = 1
AnsiStrLComp('abc','ABC') = -1


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