System.SysUtils.SameText

• Übergeordnet: System.SysUtils

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 */;

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 Parameter LocaleOptions 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.

Siehe auch

• CompareStr

• AnsiCompareText

• CompareMem

• CompareText