Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Почистить текст в Memo https://www.cyberforum.ru/ delphi-beginners/ thread2224756.html
Есть мемо в нем содержимое сайта страничка с тегами как мне удалить все лишние теги? для примера возьмем такой текст: ый рынок Перу завершил торги пятницы падением на фоне негативной динамики...
Delphi Массив: Вывести на экран таблицу, содержащую информацию о доходах фирмы по годам...
Пусть доход фирмы за k-ый год вычисляется по формуле {y}_{k}=100{f}_{i+9}(k) в некоторых условных единицах, где k=1991,1992,...,2001; i=13. Если {y}_{k}>0, то будем считать, что фирма в...
Delphi Дан массив из 15 целых чисел из интервала от -15 до 15, возвести в квадрат отрицательные элементы массива
Создания Delphi 7 Forms Дан массив из 15 целых чисел из интервала от -15 до 15, возвести в квадрат отрицательные элементы массива
Delphi Циклы. Вычисление конечных сумм и произведений Вычислить сумму и произведение. x=\sum_{k=1}^{18}f(k) y=\prod_{k=1}^{18}f(k) z=x-2y Вычислить значение выражения z и вывести x,y,z. https://www.cyberforum.ru/ delphi-beginners/ thread2224681.html
Delphi Найдите и выведите на экран площадь одной грани, площадь полной поверхности и обьём куба https://www.cyberforum.ru/ delphi-beginners/ thread2224667.html
Создания Delphi 7 Forms Запросите у пользователя длину ребра куба. Найдите и выведите на экран площадь одной грани, площадь полной поверхности и обьём куба.
Delphi Вычислить пройденный путь
Разработайте проект пройденного пути, по заданным значениям начальной скорости, ускорения и продолжительности движения
Изменение размеров формы Delphi
Разработайте проект, в котором при щелчке на той или иной кнопке размер формы будет увеличиваться влево, вправо, вниз или вверх на некоторую величину.
Delphi Найти произведение каждой строки матрицы Дана двумерная матрица размером m*n необходимо найти через стрингрид произведнения каждой строки матрицы. Предварительно в матрицу забиваются рандомные значения. Рандомно матрицу забил, а дальше... https://www.cyberforum.ru/ delphi-beginners/ thread2224608.html
Delphi Перевод из десятичной СС в двоичную СС через массив https://www.cyberforum.ru/ delphi-beginners/ thread2224579.html
Объясните,пожалуйста,как переводить числа из 10 СС в двоичную используя массив.
Delphi Windows Media Player vs Delphi Здравствуйте! Ребята, если кто работал с данным компонентом, помогите прикрутить к нему плейлист. Компонент активирован, музыку, фильмы воспроизводит, проблем нет, но не могу подключить к нему... https://www.cyberforum.ru/ delphi-beginners/ thread2224562.html
0 / 0 / 0
Регистрация: 08.10.2017
Сообщений: 31
0
Delphi 6-7

Сделать выход нажатием кнопки на директорию назад

07.04.2018, 16:04. Просмотров 595. Ответов 1
Метки (Все метки)

Добрый день.Делаю файловый менеджер.Необходимо,чтобы при нажатии на кнопку в ShellListView происходил выход на директорию назад.Здесь я получила путь выделенного файла и вывела его в edit.Подскажите как удалить все файлы до / Например изначально есть этот путь F:\d\41012.jpg,необходимо получить F:\ Как это сделать? И как связать кнопку и shellДistview ,чтобы происходил выход на директорию назад?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  path: string;
  i,d: integer;
begin
  for i:=0 to ShellListView1.Items.Count-1 do
  if ShellListView1.Items[i].Selected then
  begin
    path:= path+ShellListView1.Folders[i].PathName + #0; //получаем путь выделенного файла
    edit1.Text:=path; //выводим в edit
 
 { begin //не работает
    d:= pos('/', edit1.text);//ищем позицию
    path:=edit1.text;//читаем едит
    delete(path, 1, d);//удаляем из строки
    edit1.text := path;//записываем едит
  end;}
  end;
end;
end


Вернуться к обсуждению:
Сделать выход нажатием кнопки на директорию назад
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2018, 16:04
Готовые ответы и решения:

Компонент Shelllistview выход на директорию назад
Подскажите,дана тема написать файловый менеджер.Возможно ли в компоненте shelllistview сделать как...

Нажатием кнопки сделать текст жирным, повторным нажатием - обычным
здравствуйте. такой вопрос , как сделать, чтобы при нажатии кнопки текст печатался жирным, при...

Как нажатием кнопки с помощью vba сделать резервную копию таблиц
как нажатием кнопки с помощью vba сделать резервную копию таблиц, чтоб базы данных не...

Как можно сделать, нажатием кнопки обнулить данные только с одного поля?
Уважаемые подскажите пожалуйста ,как можно сделать, нажатием кнопки обнулить данные только с одного...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.