二维数组作为函数参数,怎么运用(20分)

  • 主题发起人 主题发起人 djtop
  • 开始时间 开始时间
D

djtop

Unregistered / Unconfirmed
GUEST, unregistred user!
二维数组作为函数参数,怎么运用

var
rdTest:array[0..1,0..1] of aaa(record type)
怎么在函数中传入rdTest
 
定义一个指针,传入首指针和个数,再强制类型转换调用。
 
TBuf = record
array:array of array of aaa
var
Fbuf:TBuf
procedure GetValue(FBuf);
 
传递指针是对的
 
type
TTestArray = array [0..1,0..1] of AAA;

var
rdTest: TTestArray;

function MyFunc(ATestArray: TTestArray): Boolean;
begin
......
end;
调用的时候
MyFunc(rdTest)
即可
 
定义类部分:
type
Tarrayofstring = array of string;
TFrm_Main = class(TForm)

函数定义部分:
function createarraypart(var arrs:Tarrayofstring;addrtype:string):Tarrayofstring;
 
把函数的首地址做为参数也可以的
它和指针类似
 
先定义成类,容易理解,好用
 
多人接受答案了。
 
后退
顶部