delphi排序问题

Question

delphi中有没有排序函数？
如果有的话，那个函数最快，并且我想知道，它用的什么样的排序法？

Answer 1

呵呵，
饭的自己做，米都买好了，你还指望别人端到嘴边吗？
程序的自己写，Delphi都装好了，你还希望有完全现成的代码吗？自己动手，丰衣足食

Answer 2

ADO有如:ADOQuery1.Sort := 'LastName ASC, DateDue DESC'

Answer 3

排序是算法中的概念，和具体的语言无关。
不过在delphi中有没有相关的函数实现就不清楚了。
不过我估计不会有，我觉得算法在具体应用时都有具体的不同的情况，不太好写成适合所有情况的函数。

Answer 4

你可以通过设定TstringList类的Sort属性 = true来排序

Answer 5

{冒泡排序 }procedure TBubbleSort.Sort(var A: array of Integer);
var
  I, J, T: Integer;
begin
  for I := High(A) downto Low(A) do
    for J := Low(A) to High(A) - 1 do
      if A[J] > A[J + 1] then
      begin
        VisualSwap(A[J], A[J + 1], J, J + 1);
        T := A[J];
        A[J] := A[J + 1];
        A[J + 1] := T;
        if Terminated then Exit;
      end;
end;{ 选择排序 }procedure TSelectionSort.Sort(var A: array of Integer);
var
  I, J, T: Integer;
begin
  for I := Low(A) to High(A) - 1 do
    for J := High(A) downto I + 1 do
      if A[I] > A[J] then
      begin
        VisualSwap(A[I], A[J], I, J);
        T := A[I];
        A[I] := A[J];
        A[J] := T;
        if Terminated then Exit;
      end;
end;{ 快速排序 }procedure TQuickSort.Sort(var A: array of Integer);  procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
  var
    Lo, Hi, Mid, T: Integer;
  begin
    Lo := iLo;
    Hi := iHi;
    Mid := A[(Lo + Hi) div 2];
    repeat
      while A[Lo] < Mid do Inc(Lo);
      while A[Hi] > Mid do Dec(Hi);
      if Lo <= Hi then
      begin
        VisualSwap(A[Lo], A[Hi], Lo, Hi);
        T := A[Lo];
        A[Lo] := A[Hi];
        A[Hi] := T;
        Inc(Lo);
        Dec(Hi);
      end;
    until Lo > Hi;
    if Hi > iLo then QuickSort(A, iLo, Hi);
    if Lo < iHi then QuickSort(A, Lo, iHi);
    if Terminated then Exit;
  end;begin
  QuickSort(A, Low(A), High(A));
end;

Answer 6

我不是写不了,我只是想知道,delphi有没有现成的!