Отрезать кусок названия ? =\

[CraftR14]

Хз как объяснить))
вообщем скачиваю файл к примеру с сайта в .XXX формате
http://testserver/testfolder/test.exe
как сделать так чтоб
в edit1 вбиваю ссыль и в edit2 генерируется сразу Название будущего файла?
т.е. если в edit1 Написано http://testttt/test/Nameqwe.exe
То в Edit2 появилась надпись Nameqwe.exe ??

Заранее спасибо! )))

[Toxa]

можно попробовать extractfilename
или искать положение последнего слэша, и отсечь все до него включительно

[CraftR14]

Сообщение от Toxa

можно попробовать extractfilename
или искать положение последнего слэша, и отсечь все до него включительно

Вопрос: как отсечь все до полсднего слеша? )) Это было б просто Щикарррррно

[DIgorevich]

function ExtractUrlFileName(const AUrl: string): string;
var
i: Integer;
begin
i := LastDelimiter('/', AUrl);
Result := Copy(AUrl, i + 1, Length(AUrl) - (i));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:= ExtractUrlFileName(edit1.Text);
end;