1. 程式人生 > >Delphi7學習(一個簡單的排序)

Delphi7學習(一個簡單的排序)

以前有學了QB,VB,C,JAVA,PB。現在工作的地方用Delphi,於是就開始學習這個。即來之則安之~``本來就是搞網路技術方面的,但是感覺總是沒什麼突破,不能就這樣生活下去啊~``於是就學學這個了~`首先就搞了本基礎書看起來,還行,也裝了個Delphi7,跟以前學的VB很相似,都是OOP嘛

路漫漫其修遠矣,吾將上下而求索

procedure sort(var a : array of integer); //排序處理過程
var x,i,j: integer;
begin
  for i:=0 to length(a)-1 do

      for j:=i to length(a)-1 do
        if a[i]>a[j] then
          begin
          x:=a[j];
          a[j]:=a[i];
          a[i]:=x;
          end;
   
end;