ISortedList.GetValueList

Копировать пример

Sub UserProc;
Var
    SortList: ISortedList;
    ValList: IList;
    i: Integer;
Begin
    SortList := New SortedList.Create;
    For i := 0 To Math.RandBetweenI(50, 100) Do
        SortList.Add("Key_" + Math.RandBetweenI(0, 100).ToString, "Number " + Math.RandBetweenI(0, 100).ToString);
    End For;
    ValList := SortList.GetValueList;
End Sub UserProc;