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 chaîne de caractères est supérieur à la deuxième. |
| 0 | Ces valeurs indique que la première chaîne de caractères est égale à la deuxième. |
| 0 ou inférieur | Ces valeurs indique que la première chaîne 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 chaînes de caractères en mode Windows ANSI, sans tenir compte des majuscule/minuscule.
Exemple
Voici quelques exemples montant l'utilisation de la fonction «AnsiCompareFileName» :
- Program AnsiCompareFileNameSamples;
-
- {$APPTYPE CONSOLE}
- Uses SysUtils;
-
- BEGIN
- WriteLn('TEXT.TXT, TEXT.TXT = ',AnsiCompareFileName('TEXT.TXT','TEXT.TXT'));
- WriteLn('TEXT.TXT, TEXT.* = ',AnsiCompareFileName('TEXT.TXT','TEXT.*'));
- WriteLn('TEXT.*,TEXT.* = ',AnsiCompareFileName('TEXT.*','TEXT.*'));
- WriteLn('TEXT.TX?, TEXT.TXT = ',AnsiCompareFileName('TEXT.TX?','TEXT.TXT'));
- WriteLn('TEXT.TXT ,TEXT.TX? = ',AnsiCompareFileName('TEXT.TXT','TEXT.TX?'));
- WriteLn('TEXT1.TXT, TEXT.TXT = ',AnsiCompareFileName('TEXT1.TXT','TEXT.TXT'));
- WriteLn('TEXT1.TXT, TEXT1.TXT = ',AnsiCompareFileName('TEXT.TXT','TEXT1.TXT'));
- END.
on obtiendra le résultat suivant :
TEXT.TXT, TEXT.TXT = 0TEXT.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