| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Случайные числа [D7, WinXP]

Mozgan ©   (2006-09-03 10:47:00) 

Всем привет!
Подскажите пожалуйста, как можно в 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;

---

Desdechado   (2006-09-03 13:41:00) [1]

http://www.delphimaster.ru/cgi-bin/forum.pl?id=1157266289&n=18

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

---

DprYg   (2006-09-03 11:35:00) [2]

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

---

Virgo_Style   (2006-09-03 11:33:00) [3]

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

вроде так.

---

vrem   (2006-09-03 11:31:00) [4]

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

---

SerJaNT   (2006-09-03 11:24:00) [5]

> уточни


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

---

Virgo_Style   (2006-09-03 11:23:00) [6]

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

уточни

---

Mozgan   (2006-09-03 10:59:00) [7]

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

---

DprYg   (2006-09-03 10:52:00) [8]

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

---

Наверх