Registriert seit: 15. Feb 2004
Ort: Göppingen
270 Beiträge
Delphi XE5 Professional
|
Re: "If not" bei string realisieren
18. Feb 2008, 11:29
Um auf Sharky einzugehen....
Delphi-Quellcode:
var
j1:TStringlist;
begin
j1 := TStringList.Create;
try
j1.Add('xxx.com');
j1.Add('xxx-xxx.com');
if (j1.IndexOf(domain)<0) then
begin
...Dann tue etwas...
end;
finally
FreeAndNil(j1);
end;
end;
Peter Schaible
|