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

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

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

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

Как подсчитать занимаемое директорией место

Советы » Каталоги » Как подсчитать занимаемое директорией место

var
  DirBytes: integer;

function
 TFileBrowser.DirSize(Dir: string
): integer;
var

  SearchRec: TSearchRec;
  Separator: string
;
begin

  if
 Copy(Dir, Length(Dir), 1) = '' then
 Separator := ''
  else
 Separator := '';
  if
 FindFirst(Dir + Separator + '*.*', faAnyFile, SearchRec) = 0 then
 begin

    if
 FileExists(Dir + Separator + SearchRec.Name) then
 begin

      DirBytes := DirBytes + SearchRec.Size;
      {Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
    end

    else

      if
 DirectoryExists(Dir + Separator + SearchRec.Name) then
 begin

        if
 (SearchRec.Name <> '.') and
 (SearchRec.Name <> '..') then

          DirSize(Dir + Separator + SearchRec.Name);
      end
;
    while
 FindNext(SearchRec) = 0 do
 begin

      if
 FileExists(Dir + Separator + SearchRec.Name) then
 begin

        DirBytes := DirBytes + SearchRec.Size;
        {Memo1.Lines.Add(Dir+Separator+SearchRec.Name);}
      end

      else

        if
 DirectoryExists(Dir + Separator + SearchRec.Name) then
 begin

          if
 (SearchRec.Name <> '.') and
 (SearchRec.Name <> '..') then
 begin

            DirSize(Dir + Separator + SearchRec.Name);
          end
;
        end
;
    end
;
  end
;
  FindClose(SearchRec);
end
;

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

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

Как подсчитать занимаемое директорией место

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

Категории

Статьи

Советы