关于delphi SetLength函数一个错误，请大家帮忙看看

最新推荐文章于 2019-02-15 16:58:00 发布

zhouyaowei1983

最新推荐文章于 2019-02-15 16:58:00 发布

阅读量1.3k

点赞数

分类专栏： delphi 文章标签： SetLength f Delphi 动态数组

本文链接：https://blog.csdn.net/zyw38121913/article/details/10171255

版权

delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

以下代码在delphi 2007编写

function GetRole(var Roles:array of RRole):Boolean;//获取所有角色
var
  sqlstr:string;
begin
  Result:=True;
  sqlstr:='select * from T_Role';
  m_adoQuery.Close;
  m_adoQuery.SQL.Text:=sqlstr;
  m_adoQuery.ConnectionString:=m_ConnectionString;
  try
    m_adoQuery.Open;
    m_adoQuery.First;
    SetLength(Roles,0);
    while not m_adoQuery.eof do
    begin
       SetLength(Roles,Length(Roles)+1);
       Roles[Length(Roles)-1].RoleCode:=m_adoQuery.FieldByName('RoleCode').AsString;
       Roles[Length(Roles)-1].RoleName:=m_adoQuery.FieldByName('RoleName').AsString;
       GetAuthorityFromRole(Roles[Length(Roles)-1].Authoritys);
    end;
    m_adoQuery.Close;
  except
    Result:=False;
    m_adoQuery.Close;
  end;

在编译的时候提示如下错误

[DCC Error] DatabaseFuntion.pas(49): E2008 Incompatible types