Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#8

Re: ExtractFilePath mit einer URL...

  Alt 15. Feb 2006, 19:50
Hallo, oder so:
Delphi-Quellcode:
function ExtractUrlPath(URL: String): String;
begin
  Result := URL;
  if Pos('/',Result) > 0 then
    Delete(Result,LastDelimiter('/',Result)+1,MAXINT);
end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat