Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];

Вниз

TMemo   Найти похожие ветки 

← →
Mozart ©   (2006-02-10 05:26) [0]

Добрый день!,
Если не трудно - посмотрите код:

begin
   randomize;
   for i:=0 to 4999 do
        begin
             x:=Random(1000000000)+1000000000;
             Str(x,s);
             Memo1.Lines[i]:=S;
        end;
end;
// не могу понять почему в memo1 выводяться только два числа.
Может я что то не так делаю?
Вопрос то по сути для первого класса, так что уж извините :)

---

← →
Джо ©   (2006-02-10 05:37) [1]

Memo1.Lines.Add (S);

---

← →
Shopot ©   (2006-02-10 17:11) [2]

Random не дает такие большие числа по-моему... А вообще попробуй так:

 x := Random(1000) + 1000; Memo.Lines.Add(IntToStr(x));


---

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

Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c