盒子论坛 v2.1

VCL安装在D10.1.2没问题,但安装在D10.2就发生以下的错误讯息,有方法解决吗

[dcc32 Error] AuditDataSet.pas(253): E2010 Incompatible types: 'System.TArray<System.Byte>' and 'Pointer'
----------------------------------------------
-

作者：

bear28 ( )	★☆☆☆☆	-
	盒子活跃会员

2017/3/29 12:19:12

1楼：

erroe code - //error @Bmint

function TAuditDataSet.MoveToBookMarkFromDelta: Boolean;
var
  BmInt: Integer;
  bm: TBookMark;
begin
  result := False;
  BMInt := FOldValuesDataSet.FieldByName('BookMark').AsInteger;
  if not BookmarkValid(@BMInt) then Exit;  //error @Bmint
  setlength(bm, sizeof(Integer));
  move(bmint, bm[1], sizeof(Integer));
  BookMark := BM;
  result := True;
end;
----------------------------------------------
-

作者：

luwakin (luwakin)	★☆☆☆☆	-
	普通会员

2017/3/29 14:16:23

2楼：

TAuditDataSet，什么控件？
----------------------------------------------
-

作者：

bjlg (蓝天)	★☆☆☆☆	-
	盒子活跃会员

2017/3/29 17:54:14

3楼：

直接价格条件编译就行了
if not BookmarkValid(@BMInt) then Exit; //error @Bmint
去掉@
就可以了，10.1.2去掉不去掉都可以。
可能限制的严格了
加@是不规范是为了以前版本的
----------------------------------------------
http://delphi.icm.edu.pl/ftp/http://delphi-z.ru

作者：

bear28 ( )	★☆☆☆☆	-
	盒子活跃会员

2017/3/29 21:13:01

4楼：

已试过去掉@,编译发生以下的错误讯息

[dcc32 Error] AuditDataSet.pas(253): E2010 Incompatible types: 'System.TArray<System.Byte>' and 'Integer'
----------------------------------------------
-

作者：

bear28 ( )	★☆☆☆☆	-
	盒子活跃会员

2017/3/30 9:19:07

5楼：

已编译过去,就是将@BMInt改为IntegerToByte(BMInt)就可编译,想请问的是这样改正确吗,谢谢

function TAuditDataSet.MoveToBookMarkFromDelta: Boolean;
var
  BmInt: Integer;
  bm: TBookMark;
begin
  result := False;
  BMInt := FOldValuesDataSet.FieldByName('BookMark').AsInteger;
  if not BookmarkValid(IntegerToByte(BMInt)) then Exit;  //error @Bmint
  setlength(bm, sizeof(Integer));
  move(bmint, bm[1], sizeof(Integer));
  BookMark := BM;
  result := True;
end;
----------------------------------------------
-

作者：

bjlg (蓝天)	★☆☆☆☆	-
	盒子活跃会员

2017/3/30 11:34:32

6楼：

你可以测试一下，其实看一下BookmarkValid的里面的类型和你实际的类型！
----------------------------------------------
http://delphi.icm.edu.pl/ftp/http://delphi-z.ru

作者：

bear28 ( )	★☆☆☆☆	-
	盒子活跃会员

2017/3/30 13:46:58

7楼：

BookmarkValid的里面的类型-System.Byte
----------------------------------------------
-

作者：

yangzh (喜羊羊)	★☆☆☆☆	-
	盒子活跃会员

2018/3/20 17:55:29

8楼：

[dcc32 Error] OfficePayMoveTroops.pas(105): E2010 Incompatible types: 'System.TArray<System.Byte>' and 'Pointer'
----------------------------------------------
DELPHI家园QQ群：186629229

作者：

yangzh (喜羊羊)	★☆☆☆☆	-
	盒子活跃会员

2018/3/20 17:56:00

9楼：

with DBGridEh1.DataSource.DataSet do
        for i := 0 to DBGridEh1.SelectedRows.Count - 1 do
        begin
          GotoBookmark(Pointer(DBGridEh1.SelectedRows.Items[i]));
          with ADOQuery1 do
          begin
          Close;
          SQL.Clear;
          SQL.Add('INSERT INTO OfficeSystem_PayMoveSalaryTmp');
          SQL.Add('(PeopleRecordCoding,cYearMonth)');
          SQL.Add('VALUES (:PeopleRecordCoding,:cYearMonth)');
          Parameters.ParamByName('PeopleRecordCoding').Value := ADODataSet1.FieldByName('PeopleRecordCoding').Value;
          Parameters.ParamByName('cYearMonth').Value := ADODataSet1.FieldByName('cYearMonth').Value;
          ExecSQL;
          end;
        end;
----------------------------------------------
DELPHI家园QQ群：186629229

作者：

yangzh (喜羊羊)	★☆☆☆☆	-
	盒子活跃会员

2018/3/27 19:49:52

10楼：

我的也是这个问题，请高手指点：VCL安装在D10.1.2没问题,但安装在D10.2就发生以下的错误讯息,有方法解决吗

[dcc32 Error] OfficePayMoveTroops.pas(105): E2010 Incompatible types: 'System.TArray<System.Byte>' and 'Pointer'

源代码：
with DBGridEh1.DataSource.DataSet do
        for i := 0 to DBGridEh1.SelectedRows.Count - 1 do
        begin
          GotoBookmark(Pointer(DBGridEh1.SelectedRows.Items[i]));
          with ADOQuery1 do
          begin
          Close;
          SQL.Clear;
          SQL.Add('INSERT INTO OfficeSystem_PayMoveSalaryTmp');
          SQL.Add('(PeopleRecordCoding,cYearMonth)');
          SQL.Add('VALUES (:PeopleRecordCoding,:cYearMonth)');
          Parameters.ParamByName('PeopleRecordCoding').Value := ADODataSet1.FieldByName('PeopleRecordCoding').Value;
          Parameters.ParamByName('cYearMonth').Value := ADODataSet1.FieldByName('cYearMonth').Value;
          ExecSQL;
          end;
        end;
----------------------------------------------
DELPHI家园QQ群：186629229

作者：

richcomp (richcomp)	★☆☆☆☆	-
	普通会员

2018/9/6 10:25:58

11楼：

GotoBookmark(DBGridEh1.SelectedRows.Items[i]);
Pointer去掉可以编译通过，具体测试稍后发出
----------------------------------------------
-

信息

登陆以后才能回复