Функция с параметром варианта - PullRequest
Новая
       36

Функция с параметром варианта

0 голосов
/ 20 февраля 2019

Я создал функцию, чтобы обновить запрос с параметрами, а затем найти определенное поле. 

function RefreshQuery(AQuery : TADOQuery; AField : string; AValue : integer; AParam : string; AParamValue : Variant) : boolean; overload;

Когда значение AV является целым числом, оно работает, когда я изменяю его на вариант

Я получаю индекс списка за пределами 1699364 ошибка .

Сама функция выглядит так: 

function RefreshQuery(AQuery : TADOQuery; AField : string; AValue : integer; AParam : string; AParamValue : Variant) : boolean; overload;
var AfterOpen,AfterScroll,BeforeOpen : TDataSetNotifyEvent;
    AList : TStringList;
    i : integer;
begin
  result:=false;

  AfterOpen := AQuery.AfterOpen;
  AfterScroll := AQuery.AfterScroll;
  BeforeOpen := AQuery.BeforeOpen;

  AQuery.AfterOpen:=nil;
  AQuery.AfterScroll:=nil;
  AQuery.BeforeOpen:=nil;

  AList := TStringList.Create;
  AList.Delimiter:=';';
  AList.DelimitedText:=AParam;

  if AQuery.Active then AQuery.Close;

  if AList.Count = 1 then
    AQuery.Parameters.ParamByName(AList[i]).Value:=AParamValue // the error happens here
  else
    for i := 0 to AList.Count-1 do
      AQuery.Parameters.ParamByName(AList[i]).Value:=AParamValue[i];

  AQuery.Open;

  if not AQuery.Locate(AField, AValue, []) then
    result:=false
  else
    result:=true;

  AQuery.AfterOpen:=AfterOpen;
  AQuery.AfterScroll:=AfterScroll;
  AQuery.BeforeOpen:=BeforeOpen;

  if Assigned(AQuery.AfterScroll) then
    AQuery.AfterScroll(AQuery);

  AList.Free;
end;

Я использую ее так: 

  if   RefreshQuery(CityQuery,'id',CityQueryID.Value,'Active',not(CheckBox1.Checked).ToInteger+2) = false then
  begin
    MessageDlg('blabla!',mtWarning, [mbOK], 0);
    Exit;
  end;

В приведенном выше примере CityQueryID.Value имеет тип Integer.Но иногда я хотел бы использовать String.Поэтому я хотел бы изменить функцию для работы с вариантами.

1 Ответ

0 голосов
/ 20 февраля 2019

Ошибка возникает из-за того, что в операторе 

  if AList.Count = 1 then
    AQuery.Parameters.ParamByName(AList[i]).Value:=AParamValue // the error happens here

вы еще не присвоили значение i и, поскольку оно является локальной переменной, оно будет иметь случайное значение, в зависимости от того, что былостек до RefreshQuery вызывается.

Изменение оператора на 

  if AList.Count = 1 then
    AQuery.Parameters.ParamByName(AList[0]).Value:=AParamValue

должно решить проблему.

Как только вы это сделаете, вы должны обнаружить, что выможно без проблем изменить тип параметра с AValue на variant.

...