Создать в выбранной в диалоговом окне директории папку

@Hretgir · Регистрация: 25.01.2012

Author24 — интернет-сервис помощи студентам

Вообще надо несколько, но не получается ни одной, кидает не в выбранную папку, а рядом, при этом директория в которой должна создаться папка в сообщении отображается правильно но остается при этом пустой, а новая создаётся рядом, а не в ней.

Pascal

procedure TForm1.MenuItem2Click(Sender: TObject);//создать проект
 
begin
 if SelectDirectoryDialog1.Execute then
  begin
     with SelectDirectoryDialog1 do
  begin
  opendirectory:=FileName;
  ForceDirectoriesUTF8(ExtractFilePath(opendirectory)+'/ImagList');
  end;
     showmessage(opendirectory);
 
end;
end;

Я уже как только не пробовал, результат неизменный.

@volvo · 06.02.2018, 00:22

ExtractFilePath там зачем? Путь к папке не заканчивается разделителем, вот ExtractFilePath и отсекает последнюю папку, думая что это имя файла.

@Hretgir · 06.02.2018, 01:30 **[ТС]**

Да я тут протупил, смотрел старый проект, а там плюсик - не обратил внимания и понеслась чехарда, потом нашёл в чём дело

Pascal

procedure TForm1.MenuItem2Click(Sender: TObject);//создать проект
 
begin
 if SelectDirectoryDialog1.Execute then
  begin
     with SelectDirectoryDialog1 do
  begin
  opendirectory:=FileName;
  ForceDirectoriesUTF8(opendirectory+'/ImagList');
  end;
     showmessage(opendirectory);
 
end;
end;

всё работает.
Просто что придумал сделать - под таблицу схемы кидать и прям на них нажимая на ячейки код визульно писать (ячейки таблицы-там переменные создаются на фоне схемы, а заголовки столбцов и строк - кнопки с командами к программе, вот только проблема как две ячейки ведь не выберешь сразу...) отображаеммый в другой таблице. Тот-же самый программируемый калькулятор, только с сохранением проектов и визуализации побольше в проектах, когда видишь и прям на изображении всё связываешь - намного легче делать, а самодельщику так или иначе всё что расчитывает - он сам потом делает на 3D принтере, поэтому наличие схемы и даже объёмного изображения - вообще не проблема: устройство отрендерил в паинте стрелок с цифрами и буквами накидал и всё, проблема только чтобы они прям под таблицу вошли, вот это проблема.

Не по теме:

И главное я-то для себя это делаю, а потом делюсь просто, так и с тулзой было - коничку не печатало, зубья отламывались дальние, предложили обдув переделать, а мне не охота было в конструкцию лезть - заводское оно надёжнее намного, взял код написал, а он мне уже G-код выправил как надо, и все дела. Так и тут, надо мне, сделаю - со всеми поделюсь. Только мануалы не люблю делать и справку.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	06.02.2018, 00:22	2
	Сообщение было отмечено Hretgir как решение Решение ExtractFilePath там зачем? Путь к папке не заканчивается разделителем, вот ExtractFilePath и отсекает последнюю папку, думая что это имя файла. 1

	06.02.2018, 01:30

Создать в выбранной в диалоговом окне директории папку

Решение