DelphiXE2で文字列リストを並べ替えるのに問題があります。次に例を示します。
procedure AddText();
var
StrList: TStringList;
begin
StrList := TStringList.Create();
StrList.Add('Test1');
StrList.Sort();
WriteLn('Sorted: ' + BoolToStr(StrList.Sorted, true)); // Prints "Sorted: false"
StrList.Add('Test2');
StrList.Sort();
WriteLn('Sorted: ' + BoolToStr(StrList.Sorted, true)); // Prints "Sorted: false"
StrList.Add('Test3');
StrList.Free();
end;
私が理解している限り、問題TStringList.Sorted
は決してtrueに設定されていないという事実によるものです(直接またはSetSortedを使用して)。それは私だけですか、それともバグですか?