1.資料結構裡面的排序方法任選
2.input.txt檔輸入 output.txt檔輸出
3.執行後要有排序時間 如多少秒

目前只知道要拉一個Button 執行後立即產生output.txt檔 還有執行時間
能提供點意見給我參考嗎(毫無頭緒)

procedure QuickSort(var A: array of Integer; iLo, iHi: Integer) ;
var
Lo, Hi, Pivot, T: Integer;
begin
Lo := iLo;
Hi := iHi;
Pivot := A[(Lo Hi) div 2];
repeat
while A[Lo] < Pivot do Inc(Lo) ;
while A[Hi] > Pivot do Dec(Hi) ;
if Lo <= Hi then
begin
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) ;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
intArray : array of integer;
j:integer;
T1,T2: Longword;
SL:TStringList;
begin

SL:=TStringList.Create;
SL.LoadFromFile('D:\input.txt');
SetLength(intArray,SL.Count) ;
//Add values to intArray
for j:=0 to sl.count-1 do
intArray[j] := strtoint(sl[j]);

t1:=GetTickCount;
//We Sort here
quicksort(intarray, Low(intArray), High(intArray));
t2:=GetTickCount;

for j:=0 to SL.count -1 do
SL[j]:=inttostr(intArray[j]);
sl.savetofile('d:\output.txt');

caption:='Quick sort Completed, It Take milliseconds =' inttostr(t2-t1);
SL.Free;
end;

===================引 用 Kevin051 文 章===================
1.資料結構裡面的排序方法任選
2.input.txt檔輸入 output.txt檔輸出
3.執行後要有排序時間 如多少秒

------
What do we live for if not to make life less difficult for each other?

===================引 用 christie 文 章===================
procedure TForm1.Button1Click(Sender: TObject);
var
intArray : array of integer;
j:integer;
T1,T2: Longword;
SL:TStringList;
begin

SL:=TStringList.Create;
SL.LoadFromFile('D:\input.txt');
SetLength(intArray,SL.Count) ;
//Add values to intArray
for j:=0 to sl.count-1 do
intArray[j] := strtoint(sl[j]);

t1:=GetTickCount;
//We Sort here
quicksort(intarray, Low(intArray), High(intArray));
t2:=GetTickCount;

for j:=0 to SL.count -1 do
SL[j]:=inttostr(intArray[j]);
sl.savetofile('d:\output.txt');

caption:='Quick sort Completed, It Take milliseconds =' inttostr(t2-t1);
SL.Free;
end;

sl.savetofile('d:\output.txt'); //路徑設置裡面能有中文嗎 如桌面等文字

編輯記錄