Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Получение родительской директории указанной папки
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение родительской директории указанной папки
Функция GetParentDir возвращает родительскую директорию папки, путь к которой
задан в параметре StartDirectory. Если папки StartDirectory не существует, то
функция возвратит пустую строку.
Зависимости: system, filectrl, UBPFD.TrimEx
Автор: VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright: VID
Дата: 25 апреля 2002 г.
***************************************************** }
function GetParentDir(StartDirectory: string
): string
;
var
x: Integer;
begin
Result := '';
if
DirectoryExists(StartDirectory) = False then
exit;
StartDirectory := TrimEx(StartDirectory, '');
if
Length(StartDirectory) = 0 then
EXIT;
X := Length(StartDirectory) + 1;
repeat
X := X - 1;
until
(StartDirectory[X] = '') or
(X = 1);
Result := Copy(StartDirectory, 1, X);
if
Result[Length(Result)] <> '' then
Result := Result + '';
if
DirectoryExists(Result) = False then
begin
Result := '';
EXIT;
end
;
end
;