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

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

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

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

Как проверить готовность диска А

Советы » Диски » Как проверить готовность диска А

function DiskInDrive(const
 Drive: char): Boolean;
var

  DrvNum: byte;
  EMode: Word;
begin

  result := false
;
  DrvNum := ord(Drive);
  if
 DrvNum >= ord('a') then

    dec(DrvNum, $20);
  EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try

    if
 DiskSize(DrvNum - $40) <> -1 then

      result := true

    else

      messagebeep(0);
  finally

    SetErrorMode(EMode);
  end
;
end
;

...можно для пущей функциональности добавить ряд строк:

function

DiskInDrive(const

Drive: char): Boolean; var

DrvNum: byte;
EMode: Word;
begin

result := true

; // было false DrvNum := ord(Drive); if

DrvNum >= ord('a') then

dec(DrvNum, $20); EMode := SetErrorMode(SEM_FAILCRITICALERRORS); try

while

DiskSize(DrvNum - $40) = -1 do

begin

// при неудаче выводим диалог if

(Application.MessageBox('Диск не готов...' + chr(13) + chr(10) +
'Повторить?', PChar('Диск ' + UpperCase(Drive)), mb_OKCANCEL + mb_iconexclamation {IconQuestion}) = idcancel) then

begin

Result := false

; Break; end

; end

; finally

SetErrorMode(EMode); end

;
end

;

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

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

Как проверить готовность диска А

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

Категории

Статьи

Советы