// Durch die Verwendung von "IndexText", "IndexStr", "MatchText" oder
// "MatchStrt" aus der Unit "StrUtils" kann man das Vorhandensein eines
// Begriffes innerhalb eines String-Arrays abfragen, wobei verschiedene
// Schreibweisen beachtet werden können.
// (Im Beispiel 1 die gleiche Bedeutung von "Samstag" und "Sonnabend")


// Getestet mit RS 10.4 unter Win11

uses System.StrUtils; 
 
// ------------- Beispiel 1 ---------------------------- 
const 
  WochenTage: Array [0 .. 7] of string = ('Montag', 'Dienstag', 'Mittwoch', 
    'Donnerstag', 'Freitag', 'Samstag', 'Sonnabend', 'Sonntag'); 
 
  // Groß- und Kleinschreibung wird ignoriert 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if IndexText('Samstag', WochenTage) in [5 .. 7] then 
    ShowMessage('Wochenende'); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  if IndexText('Sonnabend', WochenTage) in [5 .. 7] then 
    ShowMessage('Wochenende'); 
end; 
 
 
// ------------- Beispiel 2 ---------------------------- 
 
const 
  Beruf: Array [5 .. 6] of string = ('Frisör', 'Friseur'); 
 
  // Obwohl bei Beruf [5 .. 6]  wird  [0 .. 1] abgefragt 
  // Groß- und Kleinschreibung wird ignoriert 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  if IndexText('fRISÖR', Beruf) in [0 .. 1] then 
    ShowMessage('OK'); 
end; 
 
procedure TForm1.Button4Click(Sender: TObject); 
var 
  i: Integer; 
begin 
  i := IndexText('Frisörin', Beruf); 
  if i < 0 then 
    ShowMessage('Nicht OK'); 
end; 
 
// MatchText (ohne Index) 
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  if MatchText('FrIsEuR', Beruf) then 
    ShowMessage('OK'); 
end; 
 
 
 
// ------------- Beispiel 3 ---------------------------- 
 
const 
  Fisch: Array [0 .. 1] of string = ('Thunfisch', 'Tunfisch'); 
 
  // Unter Berücksichtigung von Groß- und Kleinschreibung 
 
procedure TForm1.Button6Click(Sender: TObject); 
begin 
  if IndexStr('Tunfisch', Fisch) in [0 .. 1] then 
    ShowMessage('OK'); 
end; 
 
procedure TForm1.Button7Click(Sender: TObject); 
begin 
  if not MatchStr('tunfisch', Fisch) then 
    ShowMessage('Nicht OK'); 
end;

Zugriffe seit 6.9.2001 auf Delphi-Ecke