System.SysUtils.SameText
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ètreLocaleOptions
.
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.