The sorted property of Tstringlist

1, set sorted: = TRUE;

2. Add Data

Add (' 3 '); Add (' 4 '); Add (' 1 ');

ShowMessage (Commatext);//1,3,4

3, and then modify the sorted property to False, the previously added data will not revert to the order of addition 341

Adding new Data Add (' 5 ');

4, ShowMessage (commatext);//1345

procedure tstringlist.setsorted (Value:boolean); begin if  Then begin if  Then Sort;  When you modify the sorted property, only the new value is true, and the new value is false when fsorted is not sorted:= Value; End ; End;

procedureTstringlist.sort;beginCustomsort (stringlistcomparestrings);End;procedureTstringlist.customsort (compare:tstringlistsortcompare);begin  if  notSorted and(Fcount >1)then//sorted is only sorted when false  beginchanging; QuickSort (0, Fcount-1, Compare);  Changed; End;End;

The sorted property of Tstringlist