自定义变量如下:
type
  TMatrix = array of array of Extended;
  TDataToFloatFun=function (Str:String; var Value:Extended):Boolean of Object;//------------------------------------
Type
 TMatrixS=Array of TMatrix;
我的自定义函数:
function AthWart(Matrix:TMatrix; var Value:TMatrix):Boolean;
我想调用AthWart函数应该传什么参数啊,给个例子吧,我这个代码是下载的,不知道怎么用啊,谁来救救我啊

解决方案 »

  1.   

    当然是array of array of Extended;
      

  2.   

    是array of array of Extended;能给个array of array of Extended的例子吗,给个调用这个函数的例子好吗,我真的不知道该怎么调用啊
      

  3.   

    type
      TMatrix = array of array of Extended;
      TDataToFloatFun=function (Str:String; var Value:Extended):Boolean of Object;function AthWart(Matrix:TMatrix; var Value:TMatrix):Boolean;
    var
      I, J: Integer;
    begin
      for I := 0 to 9 do
      begin
        for J := 0 to 4 do
        begin
          Value[I][J] := Matrix[I][J] + 1;
        end;
      end;
      Result := True;
    end;procedure TForm1.Button1Click(Sender: TObject);
    var
      MM, NN: TMatrix;
      I, J: Integer;
    begin
      SetLength(MM, 10);
      SetLength(NN, 10);
      for I := 0 to 9 do
      begin
        SetLength(MM[I], 5);
        SetLength(NN[I], 5);
      end;
      for I := 0 to 9 do
      begin
        for J := 0 to 4 do
        begin
          MM[I][J] := Now;
        end;
      end;
      AthWart(MM, NN);
      for I := 0 to 9 do
      begin
        for J := 0 to 4 do
        begin
          ShowMessage(FormatDateTime('YYYY-MM-DD HH:NN:SS', MM[I][J]));
          ShowMessage(FormatDateTime('YYYY-MM-DD HH:NN:SS', NN[I][J]));
        end;
      end;
    end;
      

  4.   

    array of array of Extended;怎么初使化这个变量啊