Delphi7學習(一個簡單的排序)
阿新 • • 發佈:2019-02-03
以前有學了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;