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

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

TMemo [D7, XP]


Mozart ©   (2006-02-10 05:26:00) 

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

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


Shopot   (2006-02-10 17:11:00) [1]

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

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


Джо   (2006-02-10 05:37:00) [2]

Memo1.Lines.Add (S);


Наверх

Титульная страница Поиск, карта сайта Написать письмо