название папки.

[blackstersl]

Привет всем. Я незнал как назвать тему вообщем вот:

Есть небольшая проблема: вообщем программа такова:
есть listbox, он должен загружать файл из: корневая папка с прогой, + папка 'names' + Любая папка + файл.
Вообщем со всем проблем нет, но как сделать так чтоб вот эта "НУЖНАЯ" "любая папка" папка могла менять имя, или создалась ещё одна такая папка.... и файл загружался с той что была последней в выборе из form2.treeview. Спасибо. Может что то обьяснил неправильно...

[Stilet]

Может что то обьяснил неправильно

Я лично мало чтопонял, но из того что понял думаю тебе просто нужно получить то что в дереве ты выбрал:
form2.TreeView1.Selected.Text

[blackstersl]

обьясню подругому:
при создании формы в listbox добавляются файлы например из файла 222.txt но этот файл находится в папке D:/программа/list/"папка"/222.txt
"папка" может иметь разные названия.
надо чтоб str:string; показывало имя этой папки, тем самым файл будет загружатся следующим образом:

var
path, fullway,str: string;

.....

getdir(0, path);
str := '/' + название папки которое можно изменять;
fullway:= path + '/list' + str;
listbox1.items.add(fullway + '/222.txt');
end;

Вот так как то -)

[Stilet]

"папка" может иметь разные названия.

Да ради бога, но откуда эти названия беруться и как меняются?

[blackstersl]

ну нам захотелось поменять название папки-- вот и поменяли.

[Stilet]

вот и поменяли.

По рукам за "захотелось". Папки к которым привязаны программы трогать не стоит. Или тогда меняй и в программе, или держи отдельный файл настроек, откуда прога будет читать название папки.

[blackstersl]

ладно, как сделать то что я пспрашивал?

[Neeter]

Вот что у меня получилось, конечно не самый лучший код:

procedure TForm1.Button1Click(Sender: TObject);
var
 str: string;
 namef: string;
 i: integer;
begin
 str := Edit1.Text;
 //Сначала находим только имя файла вместе с расширением
 namef := ExtractFileName(str);
 for i := 1 to Length(namef) do
  if Pos('\', namef) <> 0 then
   Delete(namef, 1, Pos('\', namef))
  else
   Break;
 //Удаляем это имя файла из пути
 Delete(str, Pos(namef, str) - 1, Length(ExtractFileName(str)) + 1);
 //Дальше удаляем все остальные папки до нужной
 for i := 1 to Length(str) do
  if Pos('\', str) <> 0 then
   Delete(str, 1, Pos('\', str))
  else
   Break;

 Edit2.Text := str;
end;

Edit1.Text = 'D:\программа\list\papka\222.txt';
Обратите внимание на разделитель '\', а не '/'
Находит только: 'papka' и записывает в Edit2.Text;