Скачать: CL | DM;

Цикл for ... to ... do снизу вверх :-)   Найти похожие ветки 

← →
delpher_gray ©   (2002-08-28 09:24) [0]

Привет Делфер ! Подскажи если знаешь как можно цикл 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:26) [1]

downto не пробовал

---

← →
777 ©   (2002-08-28 09:26) [2]

for i:=0 downto 5 do

---

← →
777 ©   (2002-08-28 09:27) [3]

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

---

← →
Kaban ©   (2002-08-28 09:28) [4]

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

---

← →
Dimich1978 ©   (2002-08-28 09:28) [5]

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

---

← →
Dimich1978 ©   (2002-08-28 09:30) [6]

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

---

← →
Anatoly Podgoretsky ©   (2002-08-28 09:32) [7]

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

---

← →
ЮЮ ©   (2002-08-28 09:37) [8]

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

---

← →
Dimich1978 ©   (2002-08-28 09:42) [9]

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

---

← →
Dimich1978 ©   (2002-08-28 09:45) [10]

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

---

← →
ЮЮ ©   (2002-08-28 09:46) [11]

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

---

← →
Dimich1978 ©   (2002-08-28 09:51) [12]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c