Тестирование битов 2

Delphi , Синтаксис , Память и Указатели

unit BitsForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    Edit1: TEdit;
    procedure CheckBoxClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    MyBits: TBits;
    procedure UpdateEdit;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses
  Math;

procedure TForm1.UpdateEdit;
var
  I, Total: Integer;
begin
  Total := 0;
  for I := 0 to 4 do
    if MyBits.Bits [I] then
      Total := Total + Round (Power (2, I));
  Edit1.Text := IntToStr (Total);
end;

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  MyBits.Bits [(Sender as TCheckBox).Tag] :=
    not MyBits.Bits [(Sender as TCheckBox).Tag];
  UpdateEdit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyBits := TBits.Create;
  MyBits.Size := 5;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  MyBits.Free;
end;

end.

Загрузить весь проект

Программа на Delphi, которая тестировала битовые операции. Форма создается с пятью чекбоксами и полем ввода. Когда чекбокс кликается, соответствующий бит в объекте TBits переключается (т. е., его значение флипается). Процедура UpdateEdit затем рассчитывает общую сумму установленных битов и обновляет поле ввода этим значением.

Вот разбор кода:

• Форма имеет пять чекбоксов (CheckBox1 до CheckBox5) и поле ввода (Edit1). Каждый чекбокс имеет свойство тега, соответствующее его позиции в массиве битов (0-основное).
• Объект MyBits объявлен как приватное поле формы. Он инициализируется с помощью TBits.Create в процедуре FormCreate, а освобождается в процедуре FormDestroy.
• Когда чекбокс кликается, процедура CheckBoxClick переключает соответствующий бит в объекте MyBits с использованием свойства тега.
• Процедура UpdateEdit рассчитывает общую сумму установленных битов, перебирая массив битов и добавляя значения установленных битов (используя формулу 2^I, где I - позиция бита).
• Результат отображается в поле ввода.
• Это программа демонстрирует основные битовые операции, такие как переключение бита и расчет общей суммы установленных битов. Она является хорошим стартовым пунктом для более сложных битовых операций или алгоритмов.

В качестве альтернативного решения можно использовать массив Boolean вместо объекта TBits. Это упрощает код и делает его проще для понимания. Однако, если вам нужно работать с большими массивами битов или требуются болееadvanced битовые операции, использование объекта TBits может быть лучше.

Вот пример, как можно модифицировать код для использования массива Boolean:

type
  TForm1 = class(TForm)
    ...;
  private
    MyBits: array[0..4] of Boolean;
    procedure UpdateEdit;
  end;

procedure TForm1.UpdateEdit;
var
  I, Total: Integer;
begin
  Total := 0;
  for I := 0 to 4 do
    if MyBits[I] then
      Total := Total + (2 ^ I);
  Edit1.Text := IntToStr(Total);
end;

procedure TForm1.CheckBoxClick(Sender: TObject);
begin
  MyBits[Sender as TCheckBox].Tag] := not MyBits[Sender as TCheckBox].Tag];
  UpdateEdit;
end;

Этот код более компактен и проще для чтения, но имеет ту же функциональность, что и оригинальный код.

Статья описывает программу на Delphi, которая предназначена для тестирования битов и отображения суммы включенных бит в текстовом поле.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Память и Указатели ::