"If not" bei string realisieren

[himitsu]

nja, abgesehn davon daß man dafür erstmal 'ne Klasse (TStringList) erstellen, befüllen und am Ende wieder freigeben muß,
diese Klasse nicht unbedingt sooo schnell ist
und sie auch etwas Speicher verbraucht ...

ist da nix einzuwenden,

aber wie gesagt, es gibt praktische/fertige Funktionen

Delphi-Quellcode:

if not MatchText(domain, ['xxx.com', 'xxx-xxx.com', 'x.com']) then ...


const MyList = Array[0..2] of String = ('xxx.com', 'xxx-xxx.com', 'x.com');
if not MatchText(domain, MyList) then ...

und wer die vielen ADD's nicht mag, könnte es auch zusammen übergeben und über die Trennzeichen (#13, #10 oder #13#10 ... CRLF) abgrenzen.

Delphi-Quellcode:

var
  j1:TStringlist;
begin
  j1 := TStringList.Create;
  try
    j1.Text := 'xxx.com'#10'xxx-xxx.com'#10'x.com';
    if j1.IndexOf(domain) < 0 then
      begin
        // ... tue etwas ...
      end;
  finally
    j1.Free;
  end; 
end;