System.SysUtils.SameStr
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 */;
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ètreLocaleOptions
.
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;
Dans les deux exemples, le résultat est False pour la plate-forme Windows et True pour les plates-formes OSX, iOS et Android.