Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Рекурсивный проход дерева каталогов

Советы » Каталоги » Рекурсивный проход дерева каталогов

procedure

ScanDir(Dir: string

); var

SearchRec: TSearchRec; begin

if

Dir <> '' then

if

Dir[length(Dir)] <> '' then

Dir := Dir + ''; if

FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then

repeat

if

(SearchRec.name = '.') or

(SearchRec.name = '..') then

continue; if

(SearchRec.Attr and

faDirectory) <> 0 then

ScanDir(Dir + SearchRec.name) //we found Directory: "Dir+SearchRec.name" else

Showmessage(Dir + SearchRec.name); //we found File: "Dir+SearchRec.name" until

FindNext(SearchRec) <> 0; FindClose(SearchRec); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

ScanDir('c:'); end

;

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

Категории

Статьи

Советы

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