在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
今天突然用到Delphi中的二维数组,本来想用二维数组来存储用户的权限去控制登陆界面后的若干菜单子项的,可是发现用数据库存储二维数组还需要经过一些转化,于是想了个笨方法,在数据库中把二维数组转换为String字符串进行存储,读出后再还原成二维数组,下面是我写的两个转化函数。 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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论