Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Создание указанного пути
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Создание указанного пути
Функция CreateDirEx создаёт указанный путь DIR. В отличии от функции CreateDir,
для CreateDirEx нет необходимости существования каталога, в которому будет
размещаться создаваемый новый каталог.
Т.е., пусть существует путь
C:Folder
Нам надо создать путь C:FolderLevel1Level2
При использовании CreateDir пришлось бы дважды вызывать эту функцию, сначала
для создания C:FolderLevel1 а затем для C:FolderLevel1Level2.
В случае работы с функцией CreateDirEx ей достаточно лишь передать параметр:
CreateDirEx('C:FolderLevel1Level2') и необходимый путь будет создан,
в независимости от того существовала вообще ли до этого папка C:Folder
Зависимости: FileCtrl, SysUtils
Автор: VID, snap@iwt.ru, ICQ:132234868, Махачкала
Copyright: VID
Дата: 28 января 2003 г.
***************************************************** }
function CreateDirEx(Dir: string
): Boolean;
var
I, L: Integer;
CurDir: string
;
begin
if
ExcludeTrailingBackslash(Dir) = '' then
exit;
Dir := IncludeTrailingBackslash(Dir);
L := Length(Dir);
for
I := 1 to
L do
begin
CurDir := CurDir + Dir[I];
if
Dir[I] = '' then
begin
if
not
DirectoryExists(CurDir) then
if
not
CreateDir(CurDir) then
Exit;
end
;
end
;
Result := True;
end
;
Пример использования:
CreateDirEx(AnyFolderName), // где AnyFolderName - любой допустимый в файловой системе путь.