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 */;
Inhaltsverzeichnis
Eigenschaften
| Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet | 
|---|---|---|---|---|
| function | public | System.SysUtils.pas System.SysUtils.hpp | System.SysUtils | System.SysUtils | 
Beschreibung
Vergleicht zwei Strings anhand des Ordinalwertes unter Berücksichtigung der Groß-/Kleinschreibung.
SameStr vergleicht S1 mit S2 und gibt True zurück, wenn beide identisch sind. SameStr berücksichtigt die Groß-/Kleinschreibung und wird nicht vom aktuellen Gebietsschema beeinflusst.
Hinweis: Wenn Sie
loUserLocaleals Wert für den ParameterLocaleOptionsangeben, werden auf den Plattformen OSX, iOS und Android beim SameStr-Vergleich alle Steuerzeichen (Zeichencodes zwischen #31 und #00) als dasselbe Zeichen behandelt.
Beispiel
 
 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;
In beiden Beispielen ist das Ergebnis für die Windows-Plattform False und für die Plattformen OSX, iOS und Android True.