delphi XE7 开发Android

function TServerMethods.DataSetQuery(const AstrSQL: string; AListParams: TStringlist; AListType: TStringlist; AlistrValues: TStringlist) : OleVariant; var i: integer; begin try objClientQuery.Close; AdoQuery.Close; AdoQuery.SQL.Clear; AdoQuery.SQL.Add(AstrSQL); for i := 0 to AListParams.Count - 1 do begin if AListType.Strings[i] = '0' then AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value := AlistrValues.Strings[i]; if AListType.Strings[i] = '1' then AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value := strToint(AlistrValues.Strings[i]); if AListType.Strings[i] = '2' then AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value := strToFloat(AlistrValues.Strings[i]); if AListType.Strings[i] = '3' then AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value := strToDateTime(AlistrValues.Strings[i]); end; AdoQuery.Open; objClientQuery.Open; result := objClientQuery.Data; except on e: exception do begin result:=e.Message; end; end; end;