今天突然用到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;
Delphi中存储二维数组的方法
最新推荐文章于 2024-05-06 17:15:42 发布