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

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

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

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

ActiveControl имеет DataSet

Советы » Компоненты и Базы данных » ActiveControl имеет DataSet

Для успешного кодирования необходимо включить typinfo в список используемых модулей. Код данного примера инвертирует логическое свойство Active набора данных, связанного с активным элементом управления при каждом нажатии пользователем клавиши ESC.

procedure TForm1.FormKeyUp(Sender: TObject; var
 Key: Word;
  Shift: TShiftState);
var

  PropInfo: PPropInfo;
  PropValue: TObject;
  ds: TDataSource;
begin

  if
 Key = VK_ESCAPE then

    { Основной код ниже }
  try

    ds := nil
;
    { Проверяем, имеет ли компонент свойство DataSource }
    PropInfo := GetPropInfo(ActiveControl.ClassInfo, 'DataSource');
    if
 PropInfo <> nil
 then

      { Свойство компонента datasource типа class (например, TDataSource) }
      if
 PropInfo^.PropType^.Kind = tkClass then

      begin

        PropValue := TObject(GetOrdProp(ActiveControl, PropInfo));
        { Создаем слепок найденного TDataSource }
        ds := (PropValue as
 DB.TDataSource);
        { Используем dataset, связанный с datasource }
        if
 not
 (ds.DataSet.State in
 dsEditModes) then

          ds.DataSet.Active := not
 ds.DataSet.Active;
      end
;
  except

    on
 E: EInvalidCast do

      ShowMessage('Ошибка. Ожидался DataSource');
  end
;
end
;

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

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

ActiveControl имеет DataSet

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

Категории

Статьи

Советы