DELPHI PROCEDURE ET FONCTION :
ANSICOMPAREFILENAME
AnsiCompareFileName - SysUtils

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.

Sous MAC OS et Linux, AnsiCompareFileName est identique à AnsiCompareStr.

Syntaxe :
Function AnsiCompareFileName(Const S1, S2:String):Integer;
Exemple :
procedure TForm1.Button1Click(Sender: TObject);
begin

 ShowMessage('fichier.txt, fichier.txt = ' + inttostr(AnsiCompareFileName('fichier.txt','fichier.txt'))
 + #13#10 +'fichier.txt, fichier.* = '+ inttostr(AnsiCompareFileName('fichier.txt','fichier.*'))
 + #13#10 +'fichier.*,fichier.* = '+ inttostr(AnsiCompareFileName('fichier.*','fichier.*'))
 + #13#10 +'fichier.tx?, fichier.txt = '+ inttostr(AnsiCompareFileName('fichier.tx?','fichier.txt'))
 + #13#10 +'fichier.txt ,fichier.tx? = '+ inttostr(AnsiCompareFileName('fichier.txt','fichier.tx?'))
 + #13#10 +'fichier.txt, fichier1.txt = '+ inttostr(AnsiCompareFileName('fichier.txt','fichier1.txt'))
 + #13#10 +'fichier1.txt, fichier.txt = '+ inttostr(AnsiCompareFileName('fichier1.txt','fichier.txt')));

// Résultat
// fichier.txt, fichier.txt = 0
// fichier.txt, fichier.* = 1
// fichier.*,fichier.* = 0
// fichier.tx?, fichier.txt = -1
// fichier.txt ,fichier.tx? = 1
// fichier.txt, fichier1.txt = -1
// fichier1.txt, fichier.txt = 1
end;
↓ A voir aussi ↓
PROCEDURES ET FONCTIONS >>