Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.26;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
3-1135838346
mss
2005-12-29 09:39
2006.02.26
Ошибка в Interbase


15-1139291447
DelphiN!
2006-02-07 08:50
2006.02.26
Соединение с сервером происходит только после его пинга


15-1139184926
Yegorchic
2006-02-06 03:15
2006.02.26
Оцените/покритикуйте программу...


15-1139301544
Pazitron_Brain
2006-02-07 11:39
2006.02.26
Развеселите меня


8-1121002218
Mr.Devil
2005-07-10 17:30
2006.02.26
Уровень сигнала на LineIn