Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];
Вниз
Цикл 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.09;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
