Variant Convert Na Object
Добри ден
у мне на маинформ ецт функсия мне надо их ползивит ц скрипт
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;
я делою как абични адд метход и тагйи калл метход но получаю ашибка вариант тыпе и адо тып не мойиббит как мойна ползивит ?
спасибо
Бурхан Чакмак
у мне на маинформ ецт функсия мне надо их ползивит ц скрипт
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;
я делою как абични адд метход и тагйи калл метход но получаю ашибка вариант тыпе и адо тып не мойиббит как мойна ползивит ?
спасибо
Бурхан Чакмак