Программирование на Delphi 7

       

Класс TParam



Класс TParam

Класс TParam инкапсулирует свойства отдельного параметра. Имя параметра определяется свойством

property Name: String;

Тип данных параметра задает свойство

property DataType: TFieldType;



Тип данных параметра и связанного поля должны совпадать.

Тип параметра определяется множеством

type

TParamType = (ptUnknown, ptInput, ptOutput, ptlnputOutput, ptResult); TParamTypes = set of TParamType;

которое имеет следующие значения:

  • ptUnknown — тип неизвестен;
  •  ptinput — параметр предназначен для передачи значения из приложения;
  •  ptOutput — параметр предназначен для передачи значения в приложение;
  •  ptlnputOutput — параметр предназначен для передачи и приема значения;
  •  ptResult — параметр предназначен для передачи в приложения информации о статусе операции.

Свойство

property ParamType: TParamType;

определяет тип параметра.

При работе с параметрами довольно часто бывает необходимо определить, имеет ли параметр ненулевое значение. Для этого используется свойство

property IsNull: Boolean;

Свойство возвращает значение True, если параметр не имеет значения или имеет значение Null.

Свойство

property Bound: Boolean;

возвращает значение True только тогда, когда параметру не присваивалось значение вообще.

Метод

procedure Clear;

присваивает параметру значение Null.

Само значение параметра задается свойством

property Value: Variant;

Но использование вариантов не очень эффективно, когда требуется обеспечить максимальную скорость. В таких случаях можно обратиться к целому набору свойств AS ..., которые не только возвращают значение, но и приводят его к некоторому типу. Например, свойство

property Aslnteger: Longlnt;

возвращает целочисленное значение поля.

Примечание
Примечание

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

Для чтения из буфера и записи в буфер значения параметра соответственно используются методы

procedure SetData(Buffer: Pointer);

procedure GetData(Buffer: Pointer);

а необходимый размер при записи в буфер позволит определить метод

function GetDataSize: Integer;

Можно скопировать тип данных, имя и значение параметра прямо из поля данных. Для этого применяется метод

procedure AssignField(Field: TField);

а для присвоения типа данных и значения используется метод

procedure AssignFieldValue(Field: TField; const Value: Variant);

Общее число знаков для числовых значений определяет свойство

property Precision: Integer;

А свойство

property NumericScale: Integer;

задает число знаков после запятой.

Для строковых параметров размер задает свойство

property Size: Integer;



Содержание раздела