函數怎樣做才能返回一個數組,請問各位大大有沒有這方面的例子﹐請多指教﹐謝謝

您是要自訂一個函數 然後能夠 Return 一個值回去嗎？ 首先： 您要先定義函數的名稱跟要返回的值是什麼類型。 例如 在 Public 或 Private 那一段把函數名稱定義好 function FunctionName(TranInString: String):String; 然後在實作裡面 function Form1.FunctionName(TranInString: String):String; begin Result TranInString '456'; end; 在這個 Form 裡面您就可以任意的使用這個函數 edit1.Text := FunctionName('123'); 那 Edit1.Text = '123456' 是不是您要的 傳入值跟回傳值的型態您可以依照自己的需求變更 Eric Lin

------
Eric Lin

Hi lvluyang,    數組？是類似陣列嗎？

procedure TForm1.Button28Click(Sender: TObject);
  function Test(Len : Integer) : OleVariant;
  var
    R : Array of Variant;
    I : Integer;
  begin
    Randomize();
    SetLength(R, Len);
    for I := 0 to Len - 1 do
      begin
        R[I] := Random(100);
      end;
    Result := R;
  end;
var
  R : Array of Integer;
  I : Integer;
begin
  R := TEST(10);
  for I := Low(R) to High(R) do
    begin
      ShowMessage(IntTostr(R[I]));
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

ㄟ補充一點： 以下示範動態String數組 Type TAryStr = array of string; Function StringstoAryStr(Strings:TStrings):TAryStr; var I : Integer; begin SetLength(Result,Strings.Count); For I := 0 to Strings.Count-1 do Result[I] := Strings[I]; end;

我是想寫一個函數能夠返回值為一個自定義的數組.這樣的函數應該怎么樣寫,

事實上原理相同的。

Type
 TData = Record
    Name  : String;
    TEL   : String;
    AGE   : Word;
  end;    Function GetPersonData:TData;
begin
  With Result do
  begin
    Name := '....';
    TEL  := 'XX-XXXXX';
    AGE  := 18;
  end;
end;