url entschlüßeln

[Robert]

Delphi-Quellcode:

function extractURLFile(URL:STRING):STRING;
var I,iLast,iFirst:INTEGER;
begin
  iLast:=LENGTH(URL)+1;
  iFirst:=1;
  FOR I:=LENGTH(URL) DOWNTO 1 DO
    BEGIN
      IF URL[I] = '/' THEN
        BEGIN
          iFirst:=I+1;
          BREAK;
        END
      ELSE IF URL[I] = '?' THEN iLast:=I;

    END;
  Result:=COPY(URL,iFirst,iLast-iFirst);
end;