Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Рекурсивное удаление файлов и подкаталогов
{
Здесь я привожу немного сокращенный код, который я создавал для Borland
Pascal 5.5 под DOS (оригинальный код не делал rmDir, поэтому вы можете
поэкспериментировать с этим, передав указатель на каталог функции rmDir
в конце этого кода). Я подозреваю, что Delphi-версия может быть или
идентичной, или иметь некоторые различии в написании имен функций
(рекомендую ознакомиться с электронной документацией по Delphi, с темой,
где описаны функции для работы с файлами). Данный код не предусматривает
проверку атрибутов файлов, которые могут быть установлены для
предотвращения удаления файла. (В Pascal 5.5 вам необходимо между парой
{$I-}{$I+} {поместить
функцию, которая вызывает проблему, не знаю,
делаете ли вы это в Delphi.)
}
removeTree(DirName: string );
var (DosError = 0) do
begin (FileSearch.name <> '.') and (FileSearch.name
<> '..') and
((FileSearch.attr and Directory) <> 0)
then
if DirName[length(DirName)] = '' then
removeTree(DirName + FileSearch.Name)
else
removeTree(DirName + '' +
FileSearch.Name); ;
FindNext(FileSearch)
end ; (DosError = 0) do
begin (FileSearch.name <> '.') and (FileSearch.name
<> '..') then
Remove(workdir);
end ; ; ;
procedure
FileSearch: SearchRec;
begin
FindFirst('*.*', Directory, FileSearch);
while
if
begin
ChDir(DirName);
end
if
FindNext(FileSearch)
end
rmDir(DirName)
end