DELPHI 7如何给函数传递数组的指针 - delphi吧

level 3

huangchao209 楼主

如题
我想把一个 A 数组用数组的指针传递到 FUNC函数里面去该怎么写

2014年09月24日 00点09分 1

level 9

旅浮畅谜又3F

坐等大神
～～～～～～～～～～～～～～～～～

2014年09月24日 02点09分 2

level 12

A1Duke

2014年09月24日 09点09分 3

旅浮畅谜又3F

感觉怪怪的，差点什么，新手

2014年09月24日 09点09分

huangchao209

我也感觉有的奇怪，这个是DELPHI 7 的吗

2014年09月25日 16点09分

A1Duke

回复 huangchao209 :自己不会把type及以下的内容，放在控制台程序里试试呀，少见多怪

2014年09月26日 01点09分

level 3

zw202411

type
TArr = record
Key: Integer;
Value: string;
end;
PArr = ^TArr;
//-------------------------------------------------------------
function GetValue(P: PArr): string;
begin
Result:= p.Value;
end;
//----------------------------------------------------------
procedure ShowValue;
var
Arr: TArr;
_Arr: PArr;
s: string;
begin
Arr.Key:= 1;
Arr.Value:= *jfsldjfsldf*;
_Arr:= @Arr;
s:= GetValue(_Arr);
ShowMessage(s);
end;
//------------------------------------------------
以上代码测试无误。不谢~~

2014年09月25日 17点09分 4