Обрезка строки

[gamer123]

Здравствуйте. Нужно обрезать урлы типа http://site.ru/index.php?id=1 до http://site.ru/. Как это можно сделать?

[Marsel737]

Можно пройтись в цикле до третьего "\" и запомнить какой это по счёту символ, а дальше воспользоваться функцией Copy

[gamer123]

Сообщение от Marsel737

Можно пройтись в цикле до третьего "\" и запомнить какой это по счёту символ, а дальше воспользоваться функцией Copy

for i:=0 to 3 do begin
ps:=pos('/',load);


сделал так, находит первый слеш и все

[Terran]

сделал так, находит первый слеш и все

Строка не меняется. Поэтому Pos будет находить только первый слеш.
Можно использовать такой вариант:

Procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
S: String;
begin
S:=Edit1.Text;
Delete(S,1,7);
For I:=0 To Length(S) Do
Begin
If Pos('/',S) <> 0 Then
Begin
Edit2.Text:='http://'+Copy(S,1,Pos('/',S));
End;
End;
End;

Но он не надёжный. Что бы было надёжно нужно сделать как писал Marsel737.

[Alex Cones]

Но он не надёжный

а не надежен из-за того, что ссылка может начинаться с https://.

For I := 1 To Length(S) Do
Begin
 If S[I] = '/' Then Inc(N);
 If N = 3 Then J := I;
End;
Delete(S, J, Length(S) - J + 1);

[SERG1980]

s:='http://site.ru/index.php?id=1';
 s1:=Copy(s,1,LastDelimiter('/',s)-1);