德爾福選擇排序似乎向後排序

Question

procedure TfrmSorting.btnSortClick(Sender: TObject); 
var 
K,L,I,iNumElements : integer; 
sKeep : string; 
begin 
iNumElements := length(arrNames); 
for K := 1 to iNumElements - 1 do 
begin 
    for L := K + 1 to iNumElements do 
    begin 
     if arrNames[K] < arrNames[L] then 
    begin 
     sKeep := arrNames[L]; 
     arrNames[L] := arrNames[K]; 
     arrNames[K] := sKeep; 
    end; 
end; 
end; 
reditNames.Lines.Clear; 
I := 1; 
for K := 1 to iNumElements - 1 do 
    begin 
    reditNames.Lines.Add(arrNames[I]); 
    I := I + 1; 
    end; 
end; 

我正在使用這種排序算法來排序數組。然後，我將內容放在一個RichEdit上，而不是從A..Z去顯示Z..A。這個算法有問題嗎？或者我在向Richedit添加行的方式有問題？謝謝

Answer 1

K小於L，如果第K個小於第L個，則交換項目。你有比較錯誤的方式。使用>而不是<。

您的索引也是可疑的。你的陣列真的是基於1的嗎？你爲什麼只將N-1加到輸出中？你是否錯過了最後一項？換句話說，我懷疑你的代碼中存在其他缺陷。你沒有顯示出來，所以我不能確定。

最後，爲什麼不使用內置的排序功能？