請問如何調用? |
尚未結案
|
donlly
一般會員 ![]() ![]() 發表:45 回覆:73 積分:23 註冊:2004-11-30 發送簡訊給我 |
|
allenchan
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:10 回覆:306 積分:283 註冊:2004-01-06 發送簡訊給我 |
function aa (b:array of string) :boolean; begin showmessage(b[ 0 ]); showmessage(b[ 1 ]); showmessage(b[ 2 ]); result:=true; end; procedure TForm1.Button1Click(Sender: TObject); var a : array[0..2] of string; begin a[ 0 ] := '111'; a[ 1 ] := '222'; a[ 2 ] := '333'; aa(a); end; |
jow
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TArrayOfString = array of string; TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; Label1: TLabel; procedure Button1Click(Sender: TObject); private public function IterateArrayOfString(A: TArrayOfString): Integer; end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } function TForm1.IterateArrayOfString(A: TArrayOfString): Integer; var I: Integer; begin ListBox1.Clear; for I := 0 to Length(A)-1 do ListBox1.Items.Add(A[I]); //Return the length of A Result := Length(A); end; procedure TForm1.Button1Click(Sender: TObject); var I: Integer; A: TArrayOfString; begin SetLength(A, Random(1000) 1); try for I := 0 to Length(A)-1 do A[I] := Format('%3.3d, %d', [I, Random(MaxInt)]); Label1.Caption := IntToStr(IterateArrayOfString(A)); finally A := nil; end; end; end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |