URL herausfinden

[CalganX]

Hi,
ich hab' jetzt mal gerade einen Source zusammengehackt:

Delphi-Quellcode:

function GetDomain(sURL: string): string;
var
  iLastSlashPos: integer;
  sTemp: string;
begin
  if Pos('http://', sURL) = 1 then begin
    sTemp := Copy(sURL, 8, length(sURL)-8);
    iLastSlashPos := Pos('/', sTemp) + 8;
    Result := Copy(sURL, 0, iLastSlashPos-1);
  end else begin
    iLastSlashPos := Pos('/', sURL);
    Result := Copy(sURL, 0, iLastSlashPos);
  end;
end;

Funktioniert sowohl mit www.domain.de/bla/bli/blubb als auch mit http://www.domain.de/bla/bli/blubb
Ist zwar nicht der schönste Source, den ich geschrieben habe, aber er funktioniert. *g*

Chris