UrlToFilename, brauche etwas Hilfe

[Alallart]

Keine Lösung, aber vielleicht paar Anregungen

Delphi-Quellcode:

var
  s: string;
  p: Integer;
begin
  s := 'https://www.delphipraxis.net/196264-urltofilename-brauche-etwas-hilfe.html#post1401364';
  p := LastDelimiter('/', s);
  s := Copy(s, p + 1, MaxInt);
  p := Pos('#', s);
  if p > 0 then
    Delete(s, p, MaxInt);
  if not(AnsiEndsText('.html', s) or AnsiEndsText('.htm', s) or AnsiEndsText('.php', s)) then
    ShowMessage(Format('"%s" scheint keine Datei zu sein', [s]))
  else
    ShowMessage(s);
end;