如题.

解决方案 »

  1.   

    //冒泡法排序function TForm1.maopao(a: array of integer): tStringlist;
    var i,j,temp:integer;
      list: tStringlist;
    begin
      for i := high(a) downto low(a) do
        begin
          for j := low(a) to i do
            begin
              if a[j]>a[j+1] then
                begin
                  temp := a[j];
                  a[j] := a[j+1];
                  a[j+1] := temp;
                end;
            end;
        end;
        list := tstringlist.Create;
        for i := low(a) to high(a) do
          list.Add(inttostr(a[i]));
        result := list;
    end;
      

  2.   

    select max(field) as Max_Value,min(field) as Min_Value from table
      

  3.   

    如果用的是adoquery,已经读取了数据集,假设要取Num字段的最大值:
    adoquery.sort:='Num DESC';
    adoquery.first;
    读取Num就是最大值,最小同上。
      

  4.   

    个人感觉select max(field),min(field) from table最简单
      

  5.   

    select max(field) as Max_Value,min(field) as Min_Value from table  是这个吗??。。