Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Итерация подкаталогов
procedureTFormList.RecurseDir(PathInicial: string
); var
SearchRec: TSearchRec; Result: integer; tmpName: string
; begin
DirectoryListBox1.Directory := PathInicial; Result := FindFirst(PathInicial + '*.*', faAnyFile, SearchRec); while
Result = 0 do
begin
if
ExtOk(SearchRec.Name) then
{ если каталог... } if
SearchRec.Attr and
faDirectory > 0 then
{ рекурсивно обрабатываем... } RecurseDir(PathInicial + '' + SearchRec.Name) else
begin
tmpName := PathInicial + '' + SearchRec.Name; tmpName := Copy(tmpName, Pos(PathOrigen, tmpName) + Length(PathOrigen), Length(tmpName) - Length(PathOrigen)); ListBox1.Items.Add(LowerCase(tmpName)); end
; Application.ProcessMessages; Result := FindNext(SearchRec); end
; DirectoryListBox1.Directory := PathInicial; end
;