|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
ПРОСТОЙ ВОПРОС: добавление в Edit
Код генератора чисел от 1 до 10. Как сделать чтобы выбранное число записывалось в Едит?
Код:
for i := 1 to 1 do begin int := 1 + Random(10); ShowMessagePos('!!!ЗНАЧЕНИЕ!!!! = '+IntToStr(int), 500,400); не спрашивайте у меня, ЗДЕСЬ СПРАШИВАЮ Я!!! |
#2
|
||||
|
||||
Код:
Edit1.text:=IntToStr(int); не спрашивайте у меня, ЗДЕСЬ СПРАШИВАЮ Я!!! |
#3
|
||||
|
||||
var s:string;
for i:=1 to 10 do begin s:=inttostr(i); edit1.text:=edit1.text+' '+s; end; |
#4
|
|||
|
|||
Как-то сложно у вас все.
Вот все тоже и всего 2 строчки кода: Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin Randomize; Edit1.Text:=IntToStr(Random(10)); end; end. |
#5
|
|||
|
|||
Или так:
Код:
Procedure writeToEdit(i, k, l) if i < k then begin Form1.Edit1.Text := Form1.Edit1.Text + IntToStr(Random(l)) + ' '; WriteToEdit(i + 1, k, l); end; ... Form1.Edit1.Text := ' '; WriteToEdit(1, 10, 10); Код:
procedure UnleassFor(i: int64) UnleassFor(i + 1); ... UnleassFor(0); |