Удалениеe нескольких букв по маске

[kakawkin]

Есть строва: http://xxx.com/ или http://www.xxx.com/
Как можно удалить в начале чтобы осталось только xxx.com ?

Так будет правельно ?:
if pos('ttp://',a) then Delete(a,1,7);
if pos('ttp://www.',a) then Delete(a,1,10);

[ZuBy]

if pos('http://', Lowercase(a)) then Delete(a,1,7);
if pos('www.', Lowercase(a)) then Delete(a,1,4);

[Serge_Bliznykov]

ZuBy, не, не корректно..
1) не проверяете позицию (а если там в начале строки пробелы или другой текст?!

2) если вдруг в имени сайта/страницы найдётся www. - то безжалостно удалиться..
а такие сайты есть.
вот, навскидку:
http://avtoligapezho.www.nn.ru/
https://secure.www.whittierdailynews.com/

я бы предложил такой вариант:

if pos('http://www.', lowercase(a))>0 then 
   Delete(a, pos('http://www.', lowercase(a)), length('http://www.'));
if pos('http://', lowercase(a))>0 then 
   Delete(a, pos('http://', lowercase(a)), length('http://'));

[Пепел Феникса]

разницы вариантов немного, все равно нет проверки что это все в начале...

примерно так надо:

str:=Trim(str);
if AnsiLowerCase(Copy(str,1,7))='http://' then Delete(str,1,7);
if AnsiLowerCase(Copy(str,1,4))='www.' then Delete(str,1,4);

Сергей, объясню что меня не устроило в Вашем варианте, неизвестно что ТС нужно обрезать, если там будут GET-запросы, то может обрезаться параметр, а это не думаю что нужно.

[kakawkin]

проверка не нужна - сайт будет введен без пробелов.
Т.е. надо тупо избавиться от http:// или же от http://www.

[kakawkin]

Собственно выход нашел вот так:
AnsiReplaceStr(s, 'http://', '');
AnsiReplaceStr(s, 'http://www.', '');