откинуть текст после названия домена

[designer999]

Здравствуйте
Скажите пожалуйста как например откинуть текст после названия домена:
http://programmersforum.ru/newthread.php?do=newthread&f=2
что бы стало так http://programmersforum.ru/

Или как можно сравнить две ссылки что бы только сравнивало их домены, раньше делал так

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  a:integer;
begin
for i:= 0 to  650 do
for a:= 0 to  650 do
begin
if Memo1.lines[a]=Memo2.lines[i] then
begin
Memo2.lines.Delete(i);
end;

Но это уже к сожалению не подходит

[Alex Cones]

Парсите первый слеш, затем с конца удаляете символы количеством Pos(S,'/') при помощи delete

[W0LF]

Можно через PosEx после http:// получить положение следующего "/" и удалить всё остальное... Ну вообщем эквевалентно способу Алекса

[designer999]

я вот сделал для откидывания начала:

Memo2.Text := StringReplace(Memo2.Text, 'http://', '', [rfReplaceAll]);
Memo1.Text := StringReplace(Memo1.Text, 'http://', '', [rfReplaceAll]);
Memo2.Text := StringReplace(Memo2.Text, 'www.', '', [rfReplaceAll]);
Memo1.Text := StringReplace(Memo1.Text, 'www.', '', [rfReplaceAll]);

А вот как программно откинуть конец ? То есть как программно задать удаления текста после первого / ?

[designer999]

вот пробовал, но не работает

for i:=0 to Memo2.Lines.Count do
begin
while Pos('/', Memo2.Lines[i+1])<>0 do
begin
Delete(Memo2.Lines[i], Pos('/', Memo2.Lines[i+1]), Pos(Memo2.Lines[i],'/'));
end;
end;

Может это и бред, но как его сделать ума не приложу (

[Alex Cones]

Перед тем, как парсить '/' сделайте delete(S,1,7);

[designer999]

Сообщение от Alex Cones

Перед тем, как парсить '/' сделайте delete(S,1,7);

я уже удалил http://, как написано сообщении выше

мне осталось только удалить конец, но как ?

[Alex Cones]

Delete(S,Pos('/',S),Length(S)-Pos('/',S)+1);

P.S. могу перепутать местами параметры в посе.

[designer999]

Сообщение от Alex Cones

Delete(S,Pos('/',S),Length(S)-Pos('/',S)+1);

P.S. могу перепутать местами параметры в посе.

Код работает но удаляет всё что есть в МЕМО

[Alex Cones]

for i:=0 to Memo2.Lines.Count do
begin
while Pos('/', Memo2.Lines[i+1])<>0 do
begin
Delete(S,Pos('/',S),Length(S)-Pos('/',S)+1);
end;
end;

не?