удалить после

[mitiay]

Есть ссылка,как удалить http:// и все что после / в нашем случае blablabla
http://www.site.com/blablalbla

[Serge_Bliznykov]

поищите описания и примеры:
Pos() - чтобы проверить наличие нужного символа в строке
Delete() - чтобы удалить из строки, и/или Copy() - скопировать из строки нужное.

а если ссылка такая:
http://www.site.com/bla/mala/lava
что нужно получить в итоге?

и протокол (то, что в начале строки) допускается только http или может быть https ?

p.s. ещё можно использовать регулярные выражения. но, боюсь, это немного сложновато для Вас...

[mitiay]

Ох да забыл,спасибо.Да и http и https в итоге должно получится www.site.com

[SLAUR]

Есть более простое решение если воспользоваться моим юнитом Mystr
http://slaur.perm.ru/DELPHI/INDEX.HTM

Ваше решение:
Result:=cNFi(3,'http://www.site.com/blablalbla','/')

[Вадим Мошев]

Да зачем, чьи-то юниты, когда есть регулярныеВыражения

[Filka]

procedure TForm1.Button1Click(Sender: TObject);
const
  S = 'http://www.site.com/blablalbla';
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    ExtractStrings(['/'], [], S, SL);
    ShowMessage(SL[1]);
  finally
    SL.Free;
  end;
end;

[newerow1989]

Второй вариант:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:string;
begin
   s:='http://www.site.com/blablalbla';
   i:=Pos('//',s);
   If i>0 then
      Delete(s,1,i+1);
   i:=Pos('/',s);
   If i>0 then
      Delete(s,i,Length(s));
   Label1.Caption:=s;
end;