当前位置:主页>销售管理软件> 列表

数组如何作为函数的参数,应怎样写? 找进销存软件需求分析

记账软件版1楼: 写一个函数如:function j_1(var s:string):string;其中s可作为函数的参数传递,但如果要把数组作为函数的参数(如:var A:array[1..10] of string)又如何写?

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楼: 多人接受答案了。