Variant Convert Na Object

отредактировано 22:37 Раздел: FastScript
Добри ден

у мне на маинформ ецт функсия мне надо их ползивит ц скрипт



Procedure TFrm_AnaForm.MainFormFunctionKayitKop(Tbl1, Tbl2 : TAdoQuery);
Begin
....
end;




Callmethdo
if MethodName = UpperCase('MainFormFunctionKayitKop') then
Begin
MainFormFunctionKayitKop(params[0], params[1]); // izdes ashibka patomushta params eto variant a mne TAdoQuery
end else

// AddMethod
Frm_Table.FS_fsScript1.AddMethod('procedure 'MainFormFunctionKayitKop(TblKaynak, TblHedef: TAdoQuery)', CallMethod);















//Ето sam скрипт

Var
tbl_stok, tbl_deneme : TAdoQuery;

Procedure compCreate;
begin
tbl_stok:=TAdoQuery.Create(nil);
tbl_Deneme:=TAdoQuery.Create(nil);
end;

procedure querysorgu;
Begin
Tbl_Stok.open;
Tbl_Deneme.open;
end;

procedure freecom;
begin
Tbl_Stok.Free;
Tbl_Deneme.Free;
end;


begin
compCreate;
querysorgu;
//Nado polzivit mainform function
MainFormFunctionKayitKop(Tbl_Stok, Tbl_Deneme);
freecom;
end;


я делою как абични адд метход и тагйи калл метход но получаю ашибка вариант тыпе и адо тып не мойиббит как мойна ползивит ?

спасибо

Бурхан Чакмак

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.