Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

TStringList invert.   Найти похожие ветки 

← →
Soul2   (2002-12-18 05:30) [0]

Посоветуйте быстрый и короткий (в плане кода) способ инвертировать (последний итем на первый итд) TStringList.

---

← →
MBo ©   (2002-12-18 06:31) [1]


with List do
if Count > 0 then
for i := 0 to (Count - 1) div 2 do
Exchange(i, Count - i - 1);


---

← →
MBo ©   (2002-12-18 07:26) [2]

так лучше ;)

with List do
for i := 0 to (Count div 2) -1 do
Exchange(i, Count - i - 1);


---

Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.022 c