Оберон-клуб «ВЄДАsoft»
https://zx.oberon.org/forum/

Напечатать имя директории
https://zx.oberon.org/forum/viewtopic.php?f=79&t=429		 Страница 1 из 1
Автор:  budden [ 25 окт 2018, 15:22 ]
Заголовок сообщения:  Напечатать имя директории
В BlackBoxComponentBuilder, у меня есть объект Files.Locator. Возможно ли получить его путь? Некорректным было бы сказать, что у него «нет» пути, потому что его можно создать, имея на входе путь. Т.е., хотя бы иногда, путь есть.
Автор:  budden [ 25 окт 2018, 15:39 ]
Заголовок сообщения:  Re: Напечатать имя директории
Для себя решил так:
Код: "OBERON"
Expand Code | Выделить всё
  1.  
  2.   IMPORT Files, HostFiles;  
  3.  
  4.   PROCEDURE ПутьПапки (Папка: Files.Locator
  5.     ; OUT Имя:HostFiles.FullName);
  6.   BEGIN
  7.     WITH Папка: HostFiles.Locator DO 
  8.       Имя := Папка.path;
  9.     ELSE
  10.       Имя := 'ПутьПапки: неизвестный тип папки';
  11.     END
  12.   END ПутьПапки;
  13.  
  14.  
Страница 1 из 1 Часовой пояс: UTC + 2 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/