Delphi如何传递二维数组参数的方法

减小字体 增大字体 作者:不详  来源:转载  发布时间:2010-12-07 02:19:11

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  T2DAry = array of array of string;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function MyFunction(arr: T2DAry): boolean;
var
  i, j: Integer;
begin
  for i:=low(arr)  to high(arr) do
    for j := low(arr[i]) to high(arr[i]) do
    begin
      ShowMessage('arr['+IntToStr(i)+']['+IntToStr(j)+']='+arr[i][j]);
    end;
end;

{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
  arr_Para: T2DAry;
begin
  SetLength(arr_Para, 2, 2);
  arr_Para[0][0] := 's00';
  arr_Para[0][1] := 's01';
  arr_Para[1][0] := 's10';
  arr_Para[1][1] := 's11';
  MyFunction(arr_Para);
end;

end.
来自:http://www.cnblogs.com/JackSun/archive/2010/11/19/1881451.html

Tags:

作者:不详
  • 好的评价 如果您觉得此文章好,就请您
      100%(1)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B