自定义变量如下:
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函数应该传什么参数啊,给个例子吧,我这个代码是下载的,不知道怎么用啊,谁来救救我啊
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函数应该传什么参数啊,给个例子吧,我这个代码是下载的,不知道怎么用啊,谁来救救我啊
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;