关闭

数组指针参数

605人阅读 评论(0) 收藏 举报
分类:
Const
  arr1: array [0 .. 1, 0 .. 1] of string = (('A0B0', 'A1B0'),
    ('A0B1', 'A1B1'));
  arr2: array [0 .. 2, 0 .. 1] of string = (('X0Y0', 'X1Y0'),
    ('X2Y0', 'X0Y1'), ('A0', 'B0'));

type
  TConstStringList = array [0 .. 0] of String;
  PConstStringList = ^TConstStringList;

function Doit(aArray: PConstStringList; AllLen: Integer):string;
var
  i: Integer;
  s:ansiString;
begin
  for i := 0 to AllLen - 1 do
    s:=s+aArray[i]+' ';
    Result:='"'+Trim(s)+'"';
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  ShowMessage(Doit(@arr1, 4));
end;

1
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:380159次
    • 积分:6146
    • 等级:
    • 排名:第4173名
    • 原创:215篇
    • 转载:126篇
    • 译文:1篇
    • 评论:44条
    最新评论