Einzelnen Beitrag anzeigen

Benutzerbild von peschai
peschai

Registriert seit: 15. Feb 2004
Ort: Göppingen
270 Beiträge
 
Delphi XE5 Professional
 
#8

Re: "If not" bei string realisieren

  Alt 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
  Mit Zitat antworten Zitat