System.SysUtils.SameText

• Aller au parent : System.SysUtils

Delphi

function SameText(const S1, S2: string): Boolean;
function SameText(const S1, S2: string; LocaleOptions: TLocaleOptions): Boolean;

C++

extern DELPHI_PACKAGE bool __fastcall SameText(const System::UnicodeString S1, const System::UnicodeString S2)/* overload */;

Propriétés

Type	Visibilité	Source	Unité	Parent
function	public	System.SysUtils.pas System.SysUtils.hpp	System.SysUtils	System.SysUtils

Description

Compare des chaînes par valeur ordinale sans tenir compte de la distinction minuscules/majuscules.

SameText compare S1 et S2 et renvoie True si les deux chaînes sont égales. SameText ne fait pas de distinction entre majuscules et minuscules et n'est pas affectée par les paramètres régionaux.

Remarque : Sous les plates-formes OSX, iOS et Android, tous les caractères de contrôle (les codes de caractères se situent entre #31 et #00) sont considérés comme étant le même caractère dans la comparaison SameText lorsqu'on utilise loUserLocale comme valeur du paramètre LocaleOptions.

Exemple

 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   c1, c2: string;
 begin
   c1 := char(6);
   c2 := char(31);
   showmessage(BoolToStr(SameText(c1, c2, loUserLocale), true));
   
   c1 := 'p'+char(6)+'p';
   c2 := 'p'+char(31)+'p';
   showmessage(BoolToStr(SameText(c1, c2, loUserLocale), true));
 end;

Dans les deux exemples, le résultat est False pour la plate-forme Windows et True pour les plates-formes OSX, iOS et Android.

Voir aussi

• CompareStr

• AnsiCompareText

• CompareMem

• CompareText