Лаврищева Е.М., Грищенко В.Н. Сборочное программирование. Основы индустрии программных продуктов
Подождите немного. Документ загружается.
371
Вариантные значения. Ранее рассмотренный тип Record имеет вариантную
часть записи, где в одном фрагменте памяти хранится информация нескольких
типов. Возникает необходимость иметь в памяти действительное значение с
фиксированной запятой, которое может интерпретироваться, как целое.
Переменным типа Variant можно присваивать значения типов – целое,
действительное, строковое и булевое. Для совместимости с другими ЯП
предусмотрена возможность присвоения их переменным значения даты/времени и
объектов типа OLE Automation. Кроме того, вариантные переменные могут
содержать массивы переменной длины и размерности с элементами указанных
типов.
Все целые, действительные, строковые, символьные и булевы типы совместимы
с типом Variant в случае операции присваивания. Вариантные переменные могут
сочетаться в выражениях с целыми, действительными, строковыми, символьными и
булевыми переменными; при этом все необходимые преобразования в системе
Delphi выполняет автоматически. Можно произвольно задавать выражение типа
Variant в форме Variant (X).
В следующей таблице перечислены типы значении, которые можно
присваивать вариантным переменным, и вариантные типы результата.
Тип выражения Вариантный тип
Целый varlnteger
Действительный, кроме Currency varDouble
Currency varCurrency
Строковый и символьный varString
Булев varBoolean
Вариантные переменные в отношении операции присвоения совместимы с
элементарными типами данных Object Pascal (Integer, Real, String и Boolean). Все
необходимые преобразования в системе Delphi выполняются автоматически. Если
необходимо указать, что вариантное значение интерпретируется как целое,
действительное, строковое или булево, следует задать тип в форме TypeName (V),
где TypeName – идентификатор соответствующего типа, V– выражение Variant.
Задание типа изменяет способ считывания значения из вариантной переменной, а
не само значение. Внутреннее представление изменяется с помощью процедур
VarAsType и VarCast.
OLE Automation. Вариантные переменные удобно применять для изменения
свойств объектов OLE Automation и вызова методов этого объекта. Чтобы
инициировать эту возможность, подключают модуль OleAuto.
Синтаксис вызова метода или обращения к свойству объекта OLE Automation
такой же, как вызов из созданного класса. Имеется несколько отличий. Во-первых,
вызов метода объекта OLE Automation происходит по схеме позднего связывания,
т.е. компилятор не проверяет, существует ли данный метод и правильно ли
определены типы параметров. Для компилятора приемлем любой идентификатор
метода и любое число параметров разных типов. При выполнении вызванного
таким образом метода может произойти ошибка.
Пример описания фактариала числа в Программе1 в языке Pascal, в
Программе2 в языке Delphi и модуля интерфейса Unit1 демонстрирует принципы
взаимодействия разноязыковых программ. В этих программах используются типы
372
данных, свойственные каждому из ЯП. Программа Unit1 осуществляет роль
интерфейсного посредника между Программа1 и Программа2.
Программа 1 в языке
Pascal
Программа Unit1 Программа 2 на Delphi
program pr1;
uses Crt;
var fact, i, N : longint;
begin
clrscr;
writeln ('Vvedit N: ');
readln (N);
fact:=1;
for i:=1 to N do
begin
fact:=fact*i;
end;
writeln('Factorial 4isla ',
N, ' = ', fact);
readln;
end.
unit Unit1;
interface uses
Windows, Messages, SysUtils,
Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: Tbutton
procedure Button1Click(Sender:
TObject);
private {Private declarations}
public {Public declaration}
var Form1: TForm1;
implementation {$R *.dfm}
procedure
TForm1.Button1Click(Sender:
TObject);
var i, fact : Integer;
begin
fact:=1;
for i:=1 to StrToInt(Edit1.Text) do
begin
fact:=fact*i;
end;
Edit2.Text:=IntToStr(fact);
end; end.
program Project1;
uses Forms,
Unit1 in 'Unit1.pas'
{Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TFor
m1, Form1);
Application.Run;
end.
.
Исследование концепции взаимодействия компонентов в языках Дельфи и
Паскаль провели студенты 4 курса (С.Балаклеенко и Л.Зинченко) кафедры
информационных технологий Киевского Национального университета им. Тараса
Шевченко.
373
Наукове видання
Національна Академія наук України
Інститут програмних систем
ЛАВРІЩЕВА Катерина Михайлівна
ГРИЩЕНКО Володимир Миколайович
ЗБІРКОВЕ ПРОГРАМУВАННЯ. Основи індустрії
програмних продуктів
Підп. до друку 5.10.2009р. Формат 70100 1/16
Папір офс.№1. Друк.різограф. Обл.–вид.арк.30,72
Умв. друк.арк. 26. Тираж 300прим. Замовлення № 2282.
_______________________________________________________________________
Друкарня «Видавничого дому «Академперіодика» НАН України
01004, Київ–4, вул. Терещенківська, 4
Свідоцтво про внесення до Державного реєстру суб’єкта
Видавничий справи серії ДК №544 від 27.01.2001.