数组如何作为函数的参数,应怎样写? 找进销存软件需求分析
2楼: type
TAStr = array of String;
function j_1(var AStr: TAStr): String; 如进销存软件需求分析
3楼: to liyinwei请说一下如何调用?
4楼: type
AOfarray=array[0..9] of string;
function j_1(var s:AOfarray):string;
var
i:integer;
begin
for i=0 to 9 do
begin
s[i]:=inttostr(i);
end;
end;
调用:
procedure TForm1.click(sender:TObject);
var
i:integer;
NewA:AOfarray;
begin
for i:=0 to 9 do
begin
j_1(NewA[i]);
end;
showmessage(NewA[i]);
end;
我没有实验。
你试试;不行的话,我在试验一下。
5楼: 做一个公用数组,传递数据,不可以吗
6楼: 传递数组变量名就可以了。
记账软件版7楼: 参看api的msgwaitformultiobjects和waitformultiobjects函数
delphi用了两种方法传递整型数组
1,传递数组首地址指针,
2,以var的变参形式传递.当然,前提是要声明以上各位说的某种类型.
8楼: Function MyFun(var s:Array of String):string;
9楼: unit Unit37;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TAStr = array[1..10] of string;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
function j_1(var AStr: TAStr): String;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
function TForm1.j_1(var AStr: TAStr): String;
begin
//这里实现函数的代码
ShowMessage(AStr[1]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sAStr: TAStr;
begin
//这里可以对sAStr数组的值进行初始化,然后把sAStr作为参数传给j_1函数
sAStr[1] := ''ABCD'';
j_1(sAStr);
end;
end.
10楼: 多人接受答案了。