IStringList.Reverse

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

Sub UserProc;
Var
    StrL: IStringList;
Begin
    StrL := New StringList.Create;
    StrL.Add("B");
    StrL.Add("A");
    StrL.Add("C");
    StrL.Add("E");
    Debug.WriteLine("Исходный массив строк:");
    ShowList(StrL);
    Debug.WriteLine("Массив строк после сортировки:");
    StrL.Sort;
    ShowList(StrL);
    Debug.WriteLine("Массив строк после переворота массива:");
    StrL.Reverse;
    ShowList(StrL);
End Sub UserProc;

Sub ShowList(List: IStringList);
Var
    s, res: String;
Begin
    For Each s In List Do
        res := res + s + ' ';
    End For;
    Debug.WriteLine(String.Trim(res));
End Sub ShowList;