比如說 f(1,5) 一到5 之間的參數都會被抓出來也就是12345

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TIntAry = Array of integer;      TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    function GetAllItems(min, max: integer): TIntAry;
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    function TForm1.GetAllItems(min, max:integer):TIntAry;
var
  i:integer;
begin
  SetLength(Result, max-min 1);
  for i := 0 to Length(Result)-1 do
    Result[i]:=min i;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  inta:TIntAry;
  i:integer;
begin
  inta:=GetAllItems(1,10);
  for i := Low(inta) to High(inta) do
    Memo1.Lines.Add(IntToStr(inta[i]));
end;

＠瞭解越多.懂得越少＠

那如果我輸人的是02 ~05 可是我只能得到2~5 有辦法可以得02~05 嗎 強調的是完整數據的取得

顯然您不太清楚自己的問題所在    所謂的完整數據, 必須由您自己定義清楚 並且在function中實作    不可能有某一個function可以任意給出你所謂的完整數據 今天如果是f(a,z) 當然您必須另外寫一個    如果只是 要變成02-05, 這其實只是格式問題,  先計算 最大數的位數 在格式中指定前面要補0

procedure TForm1.Button1Click(Sender: TObject);
var
  inta:TIntAry;
  i, precision:integer;
  s:string;
begin
  inta:=GetAllItems(1,100);      s:=IntToStr(inta[High(inta)]); //找最大數轉為string
  precision:=Length(s); //計算最大數的長度
  for i := Low(inta) to High(inta) do
    Memo1.Lines.Add(Format('%0.'  IntToStr(precision)   'd',[inta[i]]));
end;

＠瞭解越多.懂得越少＠