Динамічне створення таблиці і полів під час виконання програми

У наступному прикладі показано динамічне створення TTable, таблиці бази даних в зв'язці з TTable, TFieldDefs, TFields, обчислюваних полів і підключення обробника для події OnCalc.

Для початку виберіть пункт New Application меню File. Буде створено новий проект з порожньою формою, на якій ми і створюватиме на льоту наші компоненти.

procedure TaxAmountCalc (DataSet: TDataset);

У секції implementation створіть обробник події OnCalc як показано нижче:

procedure TForm1.TaxAmountCalc (DataSet: TDataset);

Dataset [ 'TaxAmount']: = Dataset [ 'ItemsTotal'] * (Dataset [ 'TaxRate'] / 100);

Створіть обробник форми OnCreate як показано нижче (для отримання додаткової інформації про створення обробників подій зверніться до Delphi Users Guide, Chapter 4 «Working With Code»).

procedure TForm1.FormCreate (Sender: TObject);

Однією з схвально зустрів програмістами ініціатив, що реалізуються в рамках акції Hack Week, стала публікація вихідного коду програми Zulip - веб-додатки для спілкування між собою розробників у сфері IT-технологій.

Чутки про об'єднання двох найбільших ОС компанії Google, Android і Chrome, гуляють Інтернетом вже більше 5 років, але до цих пір цього не сталося, хоча очевидно, що з плином часу ці ОС стають все більш схожими: так, останнім часом з'явилося чимало Android-пристроїв, до яких додаються клавіатури, а Chrome OS «навчилася» працювати з сенсорними екранами.

Схожі статті