How can I implement a quick sort in Delphi without getting Access violation errors for large numbers of records?
问题 Here is my current code: function StudentQuickSort(StudentList:TStudentArray;ArrayLength:integer):TStudentArray; var Pivot:TstudentArray; LesserList:TStudentArray; GreaterList:TstudentArray; ArrayCount:Integer; LesserCount:Integer; GreaterCOunt:integer; procedure ConcatArrays(const A,B,C: TStudentArray; var D: TStudentArray); var i, nA,nB,nC: integer; begin nA := length(A); nB := length(B); nC := Length(C); SetLength(D,nA+nB+nC); for i := 0 to nA-1 do D[i] := A[i]; for i := 0 to nB-1 do D[i