[RusSTEEL]

Код генератора чисел от 1 до 10. Как сделать чтобы выбранное число записывалось в Едит?

Код:

for i := 1 to 1 do
  begin
    int := 1 + Random(10);    
    ShowMessagePos('!!!ЗНАЧЕНИЕ!!!! = '+IntToStr(int), 500,400);

[RusSTEEL]

Код:

Edit1.text:=IntToStr(int);

вопрос исчерпан тему закрывать) всем спасибо все свободны)

[taiwan]

var s:string;

for i:=1 to 10 do begin
s:=inttostr(i);
edit1.text:=edit1.text+' '+s;
end;

[Михалыч]

Как-то сложно у вас все.
Вот все тоже и всего 2 строчки кода:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Randomize;
Edit1.Text:=IntToStr(Random(10));
end;

end.

[HunteRus]

Или так:

Код:

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