System.SysUtils.SameStr

Aller au parent : System.SysUtils

Delphi

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

C++

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

Sommaire

1 Propriétés
2 Description
- 2.1 Exemple
- 2.2 Voir aussi

Propriétés

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

Description

Compare deux chaînes par valeur ordinale en tenant compte de la casse.

SameStr compare S1 et S2 et renvoie True si les deux chaînes sont identiques. SameStr est sensible à la casse et n'est pas affectée par les paramètres régionaux en cours.

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 SameStr lorqu'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(SameStr(c1, c2, loUserLocale), true));
   
   c1 := 'p'+char(6)+'p';
   c2 := 'p'+char(31)+'p';
   showmessage(BoolToStr(SameStr(c1, c2, loUserLocale), true));
 end;