| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Цикл for ... to ... do снизу вверх :-) [D6, Win95/98, WinXP]

delpher_gray ©   (2002-08-28 09:24:00) 

Привет Делфер ! Подскажи если знаешь как можно цикл for ... to ... doпроизвести снизу вверх ? Вот программа:

program List;

{$APPTYPE CONSOLE}

uses
SysUtils,
Classes;

var
Str: TStringList;
i: integer;
begin
Str := TStringList.Create;
for i := 0 to 5 do
Str.Add(IntToStr(i));
Str.Free;
end.

Как я монгу записать в Str текст:
5
4
3
2
1
0
То есть наоборот не с 0 до 5, а с 5 до 0. Кто знает, подскажите плииизззз.
Т

---

Dimich1978   (2002-08-28 09:51:00) [1]

Про этот комп скажешь что туда уже лет сто ни кто не лазил...на автороство не претендую(Петросян)

---

ЮЮ   (2002-08-28 09:46:00) [2]

>там стоит комп который сам все делает
Комп сам ничего не сделает. Без delpher_gray © :-)

---

Dimich1978   (2002-08-28 09:45:00) [3]

ЮЮ>>
Это частный случай...ну мы тут на легкий вопрос дебаты развели, как будто как я уже выше сказал, в космос ракету собрались запускать. Видимо у всех времени много. Ладно займемся делом .

---

Dimich1978   (2002-08-28 09:42:00) [4]

Ну, а вообще это ведь символически, на самом деле там стоит комп который сам все делает. И ключа на старт тоже уже как бы нет, он есть но символически тоже.

---

ЮЮ   (2002-08-28 09:37:00) [5]

for i := 0 to 5 do
Str.Add(IntToStr (5-i));

---

Anatoly Podgoretsky   (2002-08-28 09:32:00) [6]

Dimich1978 © (28.08.02 09:28)
У ткх отсчет с 9, это индийский космодром

---

Dimich1978   (2002-08-28 09:30:00) [7]

a еще можно так
i=5;
repeat
i:=i-1;
.....
until i=0;

---

Kaban   (2002-08-28 09:28:00) [8]

да, последний ответ прямо в точку

---

Dimich1978   (2002-08-28 09:28:00) [9]

Что с Байконура ракеты запускать собрался:)))

---

777   (2002-08-28 09:27:00) [10]

извиняюсь
for i:=5 downto 0 do

---

Dimich1978   (2002-08-28 09:26:00) [11]

downto не пробовал

---

777   (2002-08-28 09:26:00) [12]

for i:=0 downto 5 do

---

Наверх