不知道大家有沒有發現，排序的結果很奇怪

a
a men
a.c
z

結果應該是a然後再a men，再來是a.c，最後是z，其他都很正常，唯獨只有空格和小數點等符號，排序的結果很奇怪，變成了

a men
a.c
a
z

明明a只有一個字元，排序卻在a後面還有其他字元的a men和a.c的後面，真的很奇怪！

哪位前輩可以指點一下，謝謝！

我是用BCB,用下面的code來測試,排序的結果
是如你原本的預期,先a然後再a men再來是a.c最後是z

編輯記錄

感謝您熱心回覆，我發現我引用的數據並不正確，TstringList.sort沒有問題！

[code delphi]
ss:=TstringList.Create;
ss.Add('a|1');
ss.Add('a men|2');
ss.Add('a.c|3');
ss.Sort;
caption:=ss.Strings[0] ',' ss.Strings[1] ',' ss.Strings[2]
[/code]

我只要使用『|』號前的字串進行排序，請問有無較理想的做法，謝謝！

利用substring把" | "之前的字串取出再排序可以嗎?


===================引 用 pcernet 文 章===================


我只要使用『|』號前的字串進行排序，請問有無較理想的做法，謝謝！

感謝熱心答覆。

排序的結果不能改變TstringList裡的值，
看來要自行寫個排序程式了，希望效能不致於太差。

謝謝！

編輯記錄

[code delphi]
type
TMySortData = class(TObject)
public
SIndex : String;
SRowData : String;
constructor Create(RowData : String);
end;
implementation
{ TMySortData }
constructor TMySortData.Create(RowData: String);
var
iPos : Integer;
begin
SRowData := RowData;
iPos := Pos('|', RowData);
if (iPos > 0) then
SIndex := Copy(RowData, 1, iPos - 1)
else
sIndex := RowData;
end;

//
var
I : Integer;
yourSortList : TStringList;;
data : TMySortData;
begin
yourSortList := TStringList;.Create;
yourSortList .OwnerObjects := True; // only for delphi 2009 or higher, delphi 2009之前要自行free TStringList內的Objects
try
// 加入清單
data := TMySortData.Create('a | 1');
yourSortList .AddObject(data.SIndex, data);
...
...
...
// 排序
yourSortList.Sort();

// 取出結果
for I:= 0 to yourSortList.Count - 1 do
begin
data := yourSortList.Objects[I] as TMySortData;
ShowMessage('sorted data ' data.SRowData);
end;

finally
FreeAndNil(yourSortList);
end;
[/code]

TStringlist 每條字串的長度相同，排序才有意義。
數字排序，左邊先補零，排好後，再把零拿掉。
文字排序，右邊先補空格，排好後，再把空格拿掉。