我程式中有一个数组，想让他按照某几列排序，有什么诀窍吗？

引言: 我程式中有一???，想?他按照某几列排序，有什么???？

可否說明白點,如是資料庫的Table還是什麼??

有看沒有懂...^^" 請問你是要做什麼樣的排序?? 在哪個地方顯示?? 如果是資料庫的欄位排序，請用 select * from TABLE order by 要排序的欄位 。 §§§ 量力而為 §§§ 當覺得力量不足時，就是該為自己充電的時候了。

不好意思，我所谓的数组，是程式里定义的，如temp[1..10,1..100]

你可以至 ※資料結構與演算法討論區 看看..裡面應該會有你要的答案..。 §§§ 量力而為 §§§ 當覺得力量不足時，就是該為自己充電的時候了。

Hi ffprince,    以下程式為先前用 IntraWeb 開發程式時一段排序 Procedure，供你參考

procedure TIWFormMain.SortListBox(Target : Word);
var
    MyList : TStringList;
    I : Integer;
    ID , Name : TStrings;
    MyListID,MyListName : TStrings;
begin
    CASE Target OF
        1 : BEGIN
                ID := IWListboxID1.Items;
                Name := IWListboxName1.Items;
            END;
        2 : BEGIN
                ID := IWListboxID2.Items;
                Name := IWListboxName2.Items;
            END;
    ELSE
        ID := NIL;
        NAME := NIL;
    END;
    MyList := TStringList.Create;
    MyListID := TStringList.Create;
    MyListName := TStringList.Create;
    TRY
        FOR I := 0 TO Name.Count - 1 DO
            BEGIN
                MyList.Add(Name.Strings[I]   #255   ID.Strings[I]);
            END;
        MyList.Sort;
        ID.Clear;
        Name.Clear;
        FOR I := 0 TO MyList.Count - 1 DO
            BEGIN
                MyListID.Add(Copy(MyList.Strings[I],POS(#255,MyList.Strings[I])   1,Length(MyList.Strings[I])-1));
                MyListName.Add(Copy(MyList.Strings[I],0,POS(#255,MyList.Strings[I]) - 1));
            END;
        ID.Assign(MyListID);
        Name.Assign(MyListName);
    FINALLY
        MyList.Free;
        MyListID.Free;
        MyListName.Free;
    END;
end;

主要是運用 TStringList 的 Sort 方式來排序 排序前先將了兩個 ListBox 的值組合起來，中間用一個特殊字元 #255，排完序後，再將字串拆出，還原至原先之 LisBox 內 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman