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;