Section courante

A propos

Section administrative du site

ANSISTRLICOMP

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

Syntaxe

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

Paramètres

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

Description

Cette fonction retourne le résultat d'une comparaison du début de deux chaînes de caractères ASCIZ, en mode Windows ANSI, sans tenir compte des majuscule/minuscule.

Exemple

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

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

on obtiendra le résultat suivant :

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

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