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

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

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

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

Запись nnn из nnn

Нет ли метода или свойства, позволяющих осуществить сабж из Delphi?

Для этого необходимо поработать с BDE. Нижеприведенный код у меня работает прекрасно. Условия выполнения: A) Вы используете таблицы dBASE B) На форме расположен компонент DBNavigator B) На форме расположен табличный компонент с именем Table1 C) На форме расположен компонент Label с именем Label1 D) Обработчик события OnClick компонента DBNavigator имеет следующий код:

procedure

TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); var

pRecProperty: pRECProps; begin

if

Button in

[nbFirst, nbPrior, nbNext, nbLast] then

begin

if

MaxAvail > SizeOf(RECProps) then

begin

GetMem(pRecProperty, SizeOf(RECProps)); DbiGetRecord(Table1.Handle, dbiNOLOCK, nil

, pRecProperty); Label1.Caption := Concat('Запись: ', IntToStr(pRecProperty^.iPhyRecNum), ' из ', IntToStr(Table1.RecordCount)); FreeMem(pRecProperty, SizeOf(RECProps)); end

; end

; end

;

Получить номер записи можно в момент показа формы или в момент открытия таблицы.

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

Категории

Статьи

Советы

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