Section courante

A propos

Section administrative du site

ANSICOMPAREFILENAME

Compare des noms de fichier ANSI
Delphi/Kylix/Lazarus SysUtils

Syntaxe

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

Paramètres

Nom Description
S1 Ce paramètre permet d'indiquer le premier nom de fichier à comparer
S2 Ce paramètre permet d'indiquer le deuxième nom de fichier à 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 noms de fichiers, sous formes de chaines de caractères en mode Windows ANSI, sans tenir compte des majuscule/minuscule.

Exemple

Voici quelques exemples montant l'utilisation de la fonction «AnsiCompareFileName» :

  1. Program AnsiCompareFileNameSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.  
  6. BEGIN
  7.  WriteLn('TEXT.TXT, TEXT.TXT = ',AnsiCompareFileName('TEXT.TXT','TEXT.TXT'));
  8.  WriteLn('TEXT.TXT, TEXT.* = ',AnsiCompareFileName('TEXT.TXT','TEXT.*'));
  9.  WriteLn('TEXT.*,TEXT.* = ',AnsiCompareFileName('TEXT.*','TEXT.*'));
  10.  WriteLn('TEXT.TX?, TEXT.TXT = ',AnsiCompareFileName('TEXT.TX?','TEXT.TXT'));
  11.  WriteLn('TEXT.TXT ,TEXT.TX? = ',AnsiCompareFileName('TEXT.TXT','TEXT.TX?'));
  12.  WriteLn('TEXT1.TXT, TEXT.TXT = ',AnsiCompareFileName('TEXT1.TXT','TEXT.TXT'));
  13.  WriteLn('TEXT1.TXT, TEXT1.TXT = ',AnsiCompareFileName('TEXT.TXT','TEXT1.TXT'));
  14. END.

on obtiendra le résultat suivant :

TEXT.TXT, TEXT.TXT = 0
TEXT.TXT, TEXT.* = 1
TEXT.*,TEXT.* = 0
TEXT.TX?, TEXT.TXT = -1
TEXT.TXT ,TEXT.TX? = 1
TEXT1.TXT, TEXT.TXT = 1
TEXT1.TXT, TEXT1.TXT = -1


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