Index31
Класс TParameters
Главное, для чего предназначен класс TParameters, — содержать список параметров. Индексированный список параметров представлен свойством property Items[Index: Integer]: TParameter; Текущие значения параметров можно получить из индексированного свойства property ParamValues[const ParamName: String]: Variant; При этом доступ к конкретному значению осуществляется по имени параметра: Editl.Text := ADODataSet.Parameters.ParamValues['ParamOne']; Список параметров можно обновлять при помощи методов function AddParameter: TParameter; и function CreateParameter(const Name: WideString; DataType: TDataType; Direction: TParameterDirection; Size: Integer; Value: OleVariant): TParameter; Первый метод просто создает новый объект параметра и добавляет его к списку. Затем необходимо задать все свойства нового параметра: var NewParam: TParameter; NewParam := ADODataSet.Parameters.AddParameter; NewParam.Name := 'ParamTwo'; NewParam.DataType := ftlnteger; NewParam.Direction := pdlnput; NewParam.Value := 0; Метод CreateParameter создает новый параметр и определяет его свойства:
При работе с параметрами полезно вызывать их, используя имена, а не абсолютные индексы в списке. Для этого можно использовать метод function ParamByName(const Value: WideString): TParameter; Список параметров всегда должен соответствовать запросу или хранимой процедуре. Для обновления списка используется метод procedure Refresh; Также вы можете создать список параметров для не связанного с данным объектом параметров запроса. Для этого используется метод function ParseSQL(SQL: String; DoCreate: Boolean): String; где DoCreate определяет, удалять ли перед анализом существующие параметры.
|