Выбрать имя папки из директории

[Македонский]

Возникла маленькая, но проблема. Выбираю путь к папке через SelectDirectory. Как отобразить имя выбранной папки (но не путь к ней) например в Label или Edit?

[Квэнди]

эээ... отпарсить строку с последнего слеша до конца ? )

[Македонский]

Да, только слэшей может быть несколько, как определить последний?

[Квэнди]

while pos('\',str)>0 do
str:=copy(str,pos('\',str)+1,length (str)-pos('\',str));

[Македонский]

Увы, отображается строка от первого слэша и до конца...

[Квэнди]

procedure TForm20.Button1Click(Sender: TObject);
var str:string;
begin
str:=edit1.Text;
while pos('\',str)>0 do
str:=copy(str,pos('\',str)+1,length (str)-pos('\',str));
label1.Caption:=str;
end;

все работает.

[Македонский]

А если у меня переменная директории - Dir, а переменная имени папки - Name?

[zetrix]

А если у меня переменная директории - Dir, а переменная имени папки - Name?

И что? Преобразование строки вам напсиали? Из всего пути выбирается последняя папка. Что ещё надо? Присвоить одну переменную друго не можите?

[Македонский]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Name:string;
Dir:widestring;
begin
Selectdirectory('Выберите директорию:','',Dir);
while pos('\',Dir)>0 do
Name:=copy(Dir,pos('\',Dir)+1,lengt h(Dir)-pos('\',Dir));
label1.Caption:=name;
end;


Вообще зависает!

[Квэнди]

Сами-то поняли что написали ?
у вас Dir ниразу не поменяется в цикле