Finde en del af en URL.

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
str : string;
begin
i := LastDelimiter('/',edit1.Text);
str := copy(edit1.Text,0,i);
showmessage(str);
end;

Stoney

der skal en smule mere til for at det virker....


function GetServer(const s : string) : string;
var
  p,q : PChar;
begin
  p := PChar(s);
  if StrLIComp(p,'http://',7) = 0 then Inc(p,7);
  q := StrPos(p,'/');
  if q = nil then q := StrPos(p,'?');
  if q = nil then q := StrEnd(p);
  SetString(Result,p,q-p);
end;

og smid selv lige en '/' på resultatet ;-)