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

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

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

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

Сохранить значение TDateTime в реестре

Советы » Реестр » Сохранить значение TDateTime в реестре

uses

Registry; // Write TDateTime to Registry procedure

Reg_WriteDateTime(dwRootKey: DWord; const

sKey: string

; const

sField: string

; aDate: TDateTime); begin

with

TRegistry.Create do

try

RootKey := dwRootKey; if

OpenKey(sKey, True) then

begin

try

WriteBinaryData(sField, aDate, SizeOf(aDate)); finally

CloseKey; end

; end

; finally

Free; end

; end

; // Read TDateTime from Registry function

Reg_ReadDateTime(dwRootKey: DWord; const

sKey: string

; const

sField: string

) : TDateTime; begin

Result := 0; // default Return value with

TRegistry.Create do

begin

RootKey := dwRootKey; if

OpenKey(sKey, False) then

begin

try

ReadBinaryData(sField, Result, SizeOf(Result)); finally

CloseKey; end

; end

; Free; end

; end

; // Example: // Write DateTimePicker1's DateTime to Registry procedure

TForm1.Button1Click(Sender: TObject); begin

Reg_WriteDateTime(HKEY_CURRENT_USER, 'SoftwareTestXYZ','DateTime',DateTimePicker1.DateTime); end

; // Set DateTimePicker1's DateTime from Registry procedure

TForm1.Button2Click(Sender: TObject); var

ATime: TDateTime; begin

ATime := Reg_ReadDateTime(HKEY_CURRENT_USER, 'SoftwareTestXYZ','DateTime'); if

ATime <> 0 then

DateTimePicker1.DateTime := TDateTime(ATime); end

;

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

Категории

Статьи

Советы

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