procedure TForm1.Button1Click(Sender: TObject)；
var
  I: Integer；
  ParamStr: string；
Begin
  QueryParam.Close；
  for I := 0 to QueryParam.ParamCount - 1 do
  //獲取查詢組件的參數個數，并將其作為循環控制變量的終值
  begin
    ParamStr := ListBox1.Items[I]；
    //獲取列表框中的第I個查詢參數值
    case QueryParam.Params[I].DataType of
    //此CASE語句，根據查詢參數的數據類型，確定賦值形式，
    //查詢參數的數據類型有36種，詳見表8-1的說明
      ftString:
        Query1.Params[I].AsString := ParamStr；
        //為查詢參數賦值
      ftSmallInt:
        QueryParam.Params[I].AsSmallInt := StrToIntDef(ParamStr, 0)；
        // 如果字符串是一個有效的數字（10進制或16進制），則StrToIntDef函數
        //將其轉換成數字，否則，該函數返回缺省值，此處大缺省值為0
      ftInteger:
        QueryParam.Params[I].AsInteger := StrToIntDef(ParamStr, 0)；
      ftWord:
        QueryParam.Params[I].AsWord := StrToIntDef(ParamStr, 0)；
      ftBoolean:
        begin
          if ParamStr = 'True' then
            QueryParam.Params[I].AsBoolean := True
          else
            QueryParam.Params[I].AsBoolean := False；
        end；
      ftFloat:
        QueryParam.Params[I].AsFloat := StrToFloat(ParamStr)；
      ftCurrency:
        QueryParam.Params[I].AsCurrency := StrToFloat(ParamStr)；
      ftBCD:
        QueryParam.Params[I].AsBCD := StrToCurr(ParamStr)；
      ftDate:
        QueryParam.Params[I].AsDate := StrToDate(ParamStr)；
      ftTime:
        QueryParam.Params[I].AsTime := StrToTime(ParamStr)；
      ftDateTime:
        QueryParam.Params[I].AsDateTime := StrToDateTime(ParamStr)；
    end；
  end；
  QueryParam.Open；
  //賦完值后，執行查詢語句
end；