Delphi：使用record讓Function傳回兩個以上的值
記錄一下使用record的基本方法
步驟１：在uses下加入type end
type
TFunc = record //TFunc自取名字，用T開頭就行了
a :String; //回傳的變數，需要回傳幾組就設定幾組，可以是各種型態
b :Integer;
end;
在uses下有一個TForm1 = class(TForm)，加入的TFunc位置相當重要，如果TFunc在TForm1之後，那麼步驟２建立的Function可能無法使用TForm1裡的元件，所以建議TFunc要在TForm1之前。
步驟２：建立Function
type
TForm1 = class(TForm)
Button1: TButton;
function GetRec(): TFunc;//建立function，回傳值設定為TFunc
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
...(中略)...
function TForm1.GetRec(): TFunc;
begin
Result.a := '回傳值'; //.a與.b是對應TFunc下的變數
Result.b := 1234567;
end;
步驟３：使用Function
procedure TForm1.Button1Click(Sender: TObject);
var tmp :TFunc; //建立一個變數，型態為TFunc
begin
tmp := GetRec(); //將GetRec的值傳入tmp變數
showmessage( tmp.a + ':' + inttostr(tmp.b) );
end;
最後輸出結果：
回傳值:1234567
註：使用record不需要釋放，把它視為和String、Integer這種東西就可以，就像var x:String後不用釋放x一樣。
整個範例檔：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TFunc = record
a :String;
b :Integer;
end;
type
TForm1 = class(TForm)
Button1: TButton;
function GetRec(): TFunc;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function TForm1.GetRec(): TFunc;
begin
Result.a := '回傳值';
Result.b := 1234567;
end;
procedure TForm1.Button1Click(Sender: TObject);
var tmp :TFunc;
begin
tmp := GetRec();
showmessage(tmp.a+':'+inttostr(tmp.b));
end;
end.
