27-10-2019, 03:44 PM
السلام عليكم و رحمة الله تعالى و بركاته
اقوم في هذه الايام ببرنامج يختوى على ملفات من نوع dll، حيث أواجه صعوبة في تفعيل الخاصية active للمكون fdtable1 داخل الملف dll
حيث تضهر لي هذه الرسالة transtypage de class incorrect
اليكم الاجراء الذي أعمل عليه
اقوم في هذه الايام ببرنامج يختوى على ملفات من نوع dll، حيث أواجه صعوبة في تفعيل الخاصية active للمكون fdtable1 داخل الملف dll
حيث تضهر لي هذه الرسالة transtypage de class incorrect
اليكم الاجراء الذي أعمل عليه
PHP كود :
var x:Integer;
query:TFDQuery;
table:TFDTable ;
begin
table:=TFDTable.Create(nil);
table.Connection:=connecteur;
table.TableName:='VTABLE';
query:=TFDQuery.Create(nil);
query.Connection:=connecteur;
query.Close;
query.SQL.Clear;
query.SQL.Add('DELETE FROM VTABLE');
query.ExecSQL;
table.Active:=True;
for x := 0 to cxcount do
if cxGrid.DataController.Values[x,0]='True' then
begin
table.Insert;
table.Fields.Fields[0].Value:=cxGrid.DataController.Values[x,2];
table.Fields.Fields[1].Value:=cxGrid.DataController.Values[x,3];
table.Fields.Fields[2].Value:=cxGrid.DataController.Values[x,4];
table.Fields.Fields[3].Value:=cxGrid.DataController.Values[x,5];
table.Fields.Fields[4].Value:=cxGrid.DataController.Values[x,6];
table.Fields.Fields[5].Value:=cxGrid.DataController.Values[x,7];
table.Fields.Fields[6].Value:=cxGrid.DataController.Values[x,8];
table.Fields.Fields[7].Value:=cxGrid.DataController.Values[x,11];
table.Post;
end;
if Assigned(query) then FreeAndNil(query);
end;