Delphi XE2에서 문자열 목록을 정렬 된 것으로 표시하지 않습니다.

Question

Delphi XE2에서 문자열 목록을 정렬하는 데 문제가 있습니다. 때문에 TStringList.Sorted가 true (도 직접도 SetSorted 사용)로 설정되지 않습니다 있다는 사실에

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; 

문제, 지금까지의 내가 이해,이다 예를 들면 다음과 같습니다이다. 나만인가, 아니면 벌레 일까?

Answer 1

Classes 단위에 TStringList.Sort에 대해 아무 것도 없으므로 속성을 변경해야합니다. TStringList.Sort 메서드는 기본 정렬 함수로 CustomSort을 호출하기 만하면됩니다. 목록의 상태를 나타내는 (정렬되거나 정렬되지 않음) 지표는 아닙니다. 단순히 목록이 내부 정렬 알고리즘을 사용하여 정렬되고 새 항목이 끝 대신 올바른 위치에 추가되는지 여부를 결정합니다. documentation :

목록의 문자열을 자동으로 정렬할지 여부를 지정합니다.

Sorted를 true로 설정하면 목록의 문자열이 오름차순으로 자동 정렬됩니다. 문자열을 삽입 할 위치에 남겨 두려면 false로 정렬을 설정하십시오. Sorted가 false 인 경우 Sort 메서드를 호출하여 목록의 문자열을 언제든지 오름차순으로 배치 할 수 있습니다.

Sorted가 true 인 경우 삽입을 사용하여 목록에 문자열을 추가하지 마십시오. 대신 Add를 사용하여 새 문자열을 적절한 위치에 삽입합니다. Sorted가 false이면 Insert를 사용하여 목록의 임의의 위치에 문자열을 추가하거나 Add를 사용하여 목록의 끝에 문자열을 추가합니다.

처음에는 잘못 사용했습니다. 간단히 문자열을 모두 StringList에 추가 한 다음 Sorted := True;으로 설정하면됩니다. 속성 값을 올바르게 설정하고 내부 Sort 메서드를 자동으로 호출합니다.

procedure AddText(); 
var 
    StrList: TStringList; 
begin 
    StrList := TStringList.Create(); 
    StrList.Add('Test1'); 
    StrList.Add('Test2'); 
    StrList.Add('Test3'); 
    StrList.Sorted := True; 
    // Do whatever 
    StrList.Free; 
end; 

(당신은 특히 모든 단일 항목이 추가 된 후 Sort()를 호출하고 싶지 않은, 즉 매우 느리고 비효율적입니다.)