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 */;
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 ohne Berücksichtigung der Groß-/Kleinschreibung.
SameText vergleicht S1
mit S2
und gibt True zurück, wenn beide identisch sind. SameText berücksichtigt die Groß-/Kleinschreibung und wird nicht vom aktuellen Gebietsschema beeinflusst.
Hinweis: Wenn Sie
loUserLocale
als Wert für den ParameterLocaleOptions
angeben, werden auf den Plattformen OSX, iOS und Android beim SameText-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(SameText(c1, c2, loUserLocale), true));
c1 := 'p'+char(6)+'p';
c2 := 'p'+char(31)+'p';
showmessage(BoolToStr(SameText(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.