DELPHI数组排序

最新推荐文章于 2024-07-29 17:33:56 发布

郁闷的坦然

最新推荐文章于 2024-07-29 17:33:56 发布

阅读量6k

点赞数

分类专栏： DELPHI

本文链接：https://blog.csdn.net/cmdasm/article/details/18045357

版权

DELPHI 专栏收录该内容

38 篇文章 3 订阅

订阅专栏

procedure 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
        T := A[J];
        A[J] := A[J + 1];
        A[J + 1] := T;
      end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array[0..3] of integer;
  i:integer;
begin
  a[0]:=4;
  a[1]:=7;
  a[2]:=5;
  a[3]:=10;
  Sort(a);
  for i:=0 to 3 do
    memo1.LineS.Add(inttostr(a[i]));
 
end;