Как зарегистрировать метод FindKey?
Как правильно зарегистрировать метод TCustomClientDataSet.FindKey(const KeyValues: array of const): Boolean?
Использую для регистрации метода функцию, которую нашел в fs_ibdertti.pas
function DoFindKey: Boolean;
var
ar: TVarRecArray;
begin
VariantToVarRec(Params[0], ar);
Result := TTable(Instance).FindKey(ar);
ClearVarRec(ar);
end;
Но не работает. При попытке вызова метода из скрипта выдает ошибку:
Field index out of range.
Если я меняю
Result := TTable(Instance).FindKey(ar[0]);
работает, но поиск будет только по по одному полю в случае составного ключа.
Предполагаю проблему в том, что ar - array [0..31], а у меня индекс состоит всего из одного поля.
Использую для регистрации метода функцию, которую нашел в fs_ibdertti.pas
function DoFindKey: Boolean;
var
ar: TVarRecArray;
begin
VariantToVarRec(Params[0], ar);
Result := TTable(Instance).FindKey(ar);
ClearVarRec(ar);
end;
Но не работает. При попытке вызова метода из скрипта выдает ошибку:
Field index out of range.
Если я меняю
Result := TTable(Instance).FindKey(ar[0]);
работает, но поиск будет только по по одному полю в случае составного ключа.
Предполагаю проблему в том, что ar - array [0..31], а у меня индекс состоит всего из одного поля.