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);

Random не дает такие большие числа по-моему... А вообще попробуй так:
x := Random(1000) + 1000; Memo.Lines.Add(IntToStr(x));

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