Скачать: CL | DM;

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

← →
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
- смысл то какой, повторяться же будут!

---

← →
Virgo_Style ©   (2006-09-03 11:33) [6]

S := Edit1.Text;
for i:=1 to length(S) do
 S[i] := IntToStr( random(10) + 1 );
Edit1.Text:=S;

вроде так.

---

← →
DprYg ©   (2006-09-03 11:35) [7]

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

---

← →
Desdechado ©   (2006-09-03 13:41) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c