Трабла с константой и числом повторений функции

[Molodoy hacker]

Привет всем, вообщем у меня тако вопрос как можно присвоить константе число введёное в Edit1 ?

Основное блок кода, я написал, только в с этим заморочки появились.

[Mad_Cat]

как можно присвоить константе число

никак на то она и константа

[Molodoy hacker]

Сообщение от Mad_Cat

никак на то она и константа

Тогда можно как-то осуществить это используя переменную?
А осуществить нужно следующе:

Рандомно генерируються числа состоящие из 7 цифр, в edit1 записываем число генерируемых чисел.

[Mad_Cat]

Randomize;
K:=0;
while true do
begin
x:=Random(9000000)+1000000;
K:=k+1;
edit1.text:=floattostr(k);
sleep(1000);
Application.ProcessMessages;
end;

[Serge_Bliznykov]

думаю, что у автора топика проблема в другом - он в Edit1 заносит число и хочет, чтобы это число присвоилось переменной.

так?

var i, N : integer;
begin
  N := StrToIntDef( Edit1.Text, 0 );
  for i:=1 to N do
     .....

[Arigato]

Если все же нужно что-то присвоить константе, то и такое возможно:

const
  a: Integer = 5;

begin
  WriteLn (a);
  PInteger(@a)^ := 10;
  WriteLn (a);
  ReadLn;
end.

[Molodoy hacker]

Спасибо всем, но мне подошёл способ Serge_Bliznykov'а.
Хотя и тут возникла не большая сложность.

Когда выбираю RadioButton1 и ввожу в эдит скажем 2
В мемо пишеться 6 рандомных чисел. (Из не активных RadioButton'ов 2 и 3)
Кто подскажет как это исправить?

[Mad_Cat]

может покажете код/проект/скриншот?

[Molodoy hacker]

Сообщение от Mad_Cat

может покажете код/проект/скриншот?

var
 i,n,int : integer;
begin
 sMemo1.Clear;
 N := StrToIntDef( sEdit1.Text, 0 );

  if sRadioButton3.Checked=True then
   sMemo1.Lines.Add('-= Радиобатон3 =-');
  for i:=1 to N do
   begin
    int:= 1 + Random(10000000);
    sMemo1.Lines.Add(IntToStr(int));
   end;

  if sRadioButton2.Checked=True then
   sMemo1.Lines.Add('-= Радиобатон2 =-');
  for i:= 1 to N do
   begin
    int:= 1 + Random(10000000);
    sMemo1.Lines.Add(IntToStr(int));
   end;

  if sRadioButton1.Checked=True then
   sMemo1.Lines.Add('-= Радиобатон1 =-');
  for i:= 1 to N do
   begin
    int:= 1 + Random(10000000);
    sMemo1.Lines.Add(IntToStr(int));
  end;

[Mad_Cat]

Когда выбираю RadioButton1

используйте TRadiogroup и буит вам счастье!