怎樣用函數返回多個值。 |
|
答題得分者是：william
|
|
yezi_ji
一般會員   發表：16 回覆：31 積分：9 註冊：2003-03-22 發送簡訊給我 |
|
|
ddy
站務副站長   發表：262 回覆：2105 積分：1169 註冊：2002-07-13 發送簡訊給我 |
傳回動態陣列，或是參數值使用var function 傳回動態陣列範例：
type
k=array of integer;
function abc(i:integer):k;
var
j:integer;
begin
SetLength (result,5);
for j:=0 to i do
result[j]:=j;
end; procedure TForm1.FormCreate(Sender: TObject);
begin
self.Caption := inttostr(abc(5)[5]);
end;
|
|
william
版主  發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
你可以用 var 參數讓函數可以直接修改你的變數。 例如將日期分拆為年月日的系統函數 DecodeDate 是這樣定義的 :
procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word); 你可看到 Year, Month, Day 之前有個 var 字,就是在這個 procedure 內修改到這三個變數會直接反映在呼叫這個函數所輸入的變數裡。 應用實例 :
procedure TForm1.Button1Click(Sender: TObject);
var
zDay, zMonth, zYear : word;
begin
DecodeDate(Now,zYear,zMonth,zDay); //已將 Now 的年月日分拆並存到變數
ShowMessage(Format('現在是%d年%d月%d日',[zYear,zMonth,zDay]));
end;
|
|
P.D.
版主  發表：603 回覆：4038 積分：3874 註冊：2006-10-31 發送簡訊給我 |
引言: 各位大大，小弟有一問題請教：怎樣用一個函數返回多個相同值和不同的值？小弟想只用一個函數能夠返回三個值，請問這個函數應怎樣定義？謝謝！ 我是菜鳥，請多指點！ 不勝感激！！
unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls; type
TmyData = Record 先宣告一個Record有三個傳回值
Data1: string;
Data2: string;
Data3: string;
end; type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function Myfunction(parm: string): TMydata; 定義一個function, parm 參數請自定
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} 定義 function的 實碼
function Tform1.Myfunction(parm: string): TMydata;
var MyData1: TMydata;
begin
MyData1.Data1:= 'This is Data1:' parm;
MyData1.Data2:= 'This is Data2:' parm parm;
MyData1.Data3:= 'This is Data3:' parm parm parm;
result:= MyData1; 傳回為一個記錄record
end; procedure TForm1.Button1Click(Sender: TObject);
var MyreturnData: TmyData; 定義一個要接收的record
begin
MyreturnData:= Form1.Myfunction('A'); 指定回傳值
顯示出三個值
showmessage(MyreturnData.Data1);
showmessage(MyreturnData.Data2);
showmessage(MyreturnData.Data3);
end; end.
當然這三個值是可以為不同的變數, 如 string, integer, boolean...
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
|
|
yezi_ji
一般會員 發表：16 回覆：31 積分：9 註冊：2003-03-22 發送簡訊給我 |
發表時間：2003-03-31 17:14:11
IP:218.14.xxx.xxx 未訂閱
系統時間：2024-05-13 21:09:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |