Случайные числа

← →
Mozgan (2006-09-03 10:47) [0]

Всем привет!
Подскажите пожалуйста, как можно в Edit1 засунуть сгенерированные числа? На форме есть кнопка и Edit. Как сделать, чтобы вся длина едита заполнилась случайными числами?
Я начал работу вот так, но что-то дальше не получается :(
var i,j,f: integer; begin randomize; f:=0; for i:=0 to 10 do begin j:= random(10)+1; for f:=0 to length(edit1.Text)do Edit1.Text:=IntToStr(j+length(Edit1.Text)); end;

← →
DprYg © (2006-09-03 10:52) [1]

> for f:=0 to length(edit1.Text)do
>
> Edit1.Text:=IntToStr(j+length(Edit1.Text));
Что это?

← →
Mozgan (2006-09-03 10:59) [2]

Это у меня так... для эксперимента. Внимания на этого обращать смысла нет.

← →
Virgo_Style © (2006-09-03 11:23) [3]

Mozgan (03.09.06 10:47)
вся длина едита

уточни

← →
SerJaNT © (2006-09-03 11:24) [4]

> уточни

автор имеет ввиду length

← →
vrem (2006-09-03 11:31) [5]

больше 18-20 знаков не получишь, ограничение extended - умножай random не на 10, а на миллион или больше и выводи напрямую, без
for f:=0 to length(edit1.Text)do
- смысл то какой, повторяться же будут!

S := Edit1.Text; for i:=1 to length(S) do S[i] := IntToStr( random(10) + 1 ); Edit1.Text:=S;
вроде так.

> смысл то какой, повторяться же будут!
Будут, но можно сделать так, что не будут

http://delphimaster.net/view/2-1157266289/

раздуплись, а?

Случайные числа Найти похожие ветки