Как создать все поддиректории за один проход

Советы » Каталоги » Как создать все поддиректории за один проход

Пример использует информационное поле (label) и кнопку на форме. Когда пользователь кликает по кнопке, то все поддиректории, содержащиеся в пути создаются (если они ещё не созданы). Результат записывается в текстовое поле:

uses

FileCtrl; procedure

TForm1.Button1Click(Sender: TObject); var

Dir: string

; begin

Dir := 'C:APPSSALESLOCAL'; ForceDirectories(Dir); if

DirectoryExists(Dir) then

Label1.Caption := Dir + ' was created' end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com