• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi中存储二维数组的方法[转]

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

  今天突然用到Delphi中的二维数组,本来想用二维数组来存储用户的权限去控制登陆界面后的若干菜单子项的,可是发现用数据库存储二维数组还需要经过一些转化,于是想了个笨方法,在数据库中把二维数组转换为String字符串进行存储,读出后再还原成二维数组,下面是我写的两个转化函数。
二维数组的形式如下:a[(1,1,1,1,1,1,1,1,1,1),(1,1,1,1,1,1,1,1,1,1),(1,1,1,1,1,1,1,1,1,1)......]
转后后的字符串格式如下:1,1,1,1,1,1,1,1,1,1,1,1,1,1........

Function TwoArrayToString(Sender:TObject; SourceArray:myArray; xMax:Integer; yMax:Integer):String;
var
    tmpstr:String;
    i,j:Integer;
begin
    tmpstr:='';
    for i:=1 to xMax do
    begin
        for j:=1 to yMax do
        begin
            if (i<>xMax) or (j<>yMax)  then
            begin
                tmpstr:=tmpStr+IntToStr(SourceArray[i][j]);
                tmpstr:=tmpStr+',';
            end
            else
            begin
                tmpstr:=tmpStr+IntToStr(SourceArray[i][j]);
            end;
        end;
        //tmpstr:=tmpstr+#13#10;
    end;
    result:=tmpstr;
end;
Function StringToTwoArray(Sender:TObject; SourceStr:String; xMax:Integer;yMax:Integer):myArray;
var
    i,j,x:Integer;
    myOwnArray:myArray;
    tmpstr:String;
begin
    x:=1;
    tmpstr:=SourceStr;
    for i:=1 to xMax do
    begin
        for j:=1 to yMax do
        begin
            if x<Length(tmpstr)/2+1 then
            begin
                myOwnArray[i][j]:=StrToInt(tmpstr[x*2-1]);
                inc(x);
            end;
        end;
    end;
    result:=myOwnArray;
end;


注:一些变量定义如下:
const  upermissonX=10;
const  upermissonY=10;
Type
  myArray=array[1..upermissonX,1..upermissonY] of integer;


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
关于matlab 2014a的 mex -setup报错发布时间:2022-07-18
下一篇:
C#Matlab混合编程类初始化问题解决方法发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap