Спасибо за вариант, есть еще один, как раз для меня подходит:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | procedure SortVLE;
function MyCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
Result := AnsiCompareStr(List.ValueFromIndex[Index2], List.ValueFromIndex[Index1])
end;
var
fSL : TStringList;
begin
fSL := TStringList.Create;
try
fSL.Text := SeoController.ValueListEditor1.Strings.Text;
fSL.CustomSort(@MyCompare);
SeoController.ValueListEditor1.Strings.Text := fSL.Text;
finally
fSL.Free;
end
end;
|
29.09.2013, 14:46
Древовидный вид