Как отсеять путь и оставить только имя?

[Чиполлино]

Привет всем.

idFTP1.List(ListBox1.Items,'путь/путь/gjhjhjhjg.exe', false);

В результате на ListBox выводится весь путь до файла, а как обрезать этот путь? Чтобы осталось только имя.

Заранее спасибо.

[uberchel]

Сообщение от Чиполлино

Привет всем.

idFTP1.List(ListBox1.Items,'путь/путь/gjhjhjhjg.exe', false);

В результате на ListBox выводится весь путь до файла, а как обрезать этот путь? Чтобы осталось только имя.

Заранее спасибо.

idFTP1.List(ListBox1.Items,ExtractFileName('путь/путь/gjhjhjhjg.exe'), false);

[Stilet]

Банально - перебрать циклом с конца строки символы до первого "/".
Циклы как пишутся знаешь?

ExtractFileName

Он и обратный слэш распознает? Сомневаюсь...

[Кольша]

Edit1.Text:=copy(Edit1.Text,LastDelimiter('/',Edit1.Text)+1,length(Edit1.Text));

edit1.text замените сами

[Чиполлино]

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

idFTP1.List(ListBox1.Items,ExtractFileName('путь/путь/gjhjhjhjg.exe'), false);

Уже пробовал, не помогает.
Работает только когда происходит работа с файлами на компьютере.

[Кольша]

вот переделанный:

function filename(s:string):string;
begin
result:=copy(s,LastDelimiter('/',s)+1,length(s));
end;

[Чиполлино]

Сообщение от Кольша

вот переделанный:

function filename(s:string):string;
begin
result:=copy(s,LastDelimiter('/',s)+1,length(s));
end;

idFTP1.List(s,'/путь/*.тип, false);
ListBox1.Items:= filename;

[DCC Error] Unit2.pas(174): E2250 There is no overloaded version of 'List' that can be called with these arguments
[DCC Error] Unit2.pas(175): E2035 Not enough actual parameters

[Кольша]

не так а вот так :

idFTP1.List(s,filename('/путь/*.тип), false);

[Чиполлино]

idFTP1.List(s,filename('...'), false);
s:= ListBox1.Items;

[DCC Error] Unit2.pas(174): E2250 There is no overloaded version of 'List' that can be called with these arguments
[DCC Error] Unit2.pas(175): E2010 Incompatible types: 'string' and 'TStrings'

[Кольша]

вот это уберите :

idFTP1.List(s,filename('...'), false);

и посмотрите на что ругается