Текущий архив: 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.051 c
