delphi XE7 开发Android

functionTServerMethods.DataSetQuery(constAstrSQL:string;AListParams:TStringlist;AListType:TStringlist;AlistrValues:TStringlist):OleVariant;vari:integer;begintryobjClientQuery.Close;AdoQuery.Close;AdoQuery.SQL.Clear;AdoQuery.SQL.Add(AstrSQL);fori:=0toAListParams.Count-1dob