Зависание при выполнении программы

[Танкист]

Пытаюсь сделать программу, которая будет генерировать случайные числа от 1 до 100, компелируется нормально, без ошибок, но когда указываю в эдит1 число, то программа зависает... Подскажите что не так!
з.ы. В эдит я хочу прописать кол-во генераций чисел

var
f: string;
b: string;
c: string;
begin
edit1.Text:=c;
memo1.Lines.Text:=f;
while f<=c do
b:=inttostr(1+random(100));
memo1.Lines.Add(b);

[vovk]

edit1.Text:=c;
memo1.Lines.Text:=f;

не инициализируете переменные f и c но зачем то пытаетесь их значение присвоить свойствам компонентов

while f<=c do
b:=inttostr(1+random(100));
memo1.Lines.Add(b);

тут при условии f<=c выполняется в цикле только 1 строка

b:=inttostr(1+random(100));

эта строка

 memo1.Lines.Add(b);

выполняется только 1 раз тогда когда цикл закончен.

В основном, вы не знаете что содержится в переменных c и f
естественно если условие цикла выполняется то он будет бесконечным while f<=c do
Вы точно написали то что хотели ?
пишите свои комментарии к действиям,
и понятно будет
где вы сделали не то что хотели.

На вскидку:= Вы хотели написать

var
f: string;
b: string;
c: string;
begin
c:=edit1.Text;
f:=memo1.Lines.Text;
while f<=c do
begin
b:=inttostr(1+random(100));
memo1.Lines.Add(b);
end;

но опять же я не уверен что вы хотели сделать.
И если условие f<=c будет ложь, то цикл просто не будет выполнятся, а если истина то цикл будет бесконечен, в цикле надо менять значение переменной с или f чтобы он когда нибудь завершился

[Танкист]

var
f: string;
b: string;
c: string;
begin
edit1.Text:=c; //кол-во повторений цикла
memo1.Lines.Text:=f; //кол-во строк в мемо
while f<=c do //пока кол-во строк в мемо меньше значения в едит, делать
b:=inttostr(1+random(100));
memo1.Lines.Add(b);

и почему при истине, цикл будет бесконечным?

[Аватар]

Смотрим f<=c. В f и в c ничего не присвоено, скорее всего там пусто, значит условие будет выполняться всегда, вот и бесконечный цикл

[Танкист]

Сообщение от Аватар

Смотрим f<=c. В f и в c ничего не присвоено, скорее всего там пусто, значит условие будет выполняться всегда, вот и бесконечный цикл

так я же присваиваю с значения едита, ну с f я не знаю как поступить

[vovk]

Сообщение от Танкист

var
f: string;
b: string;
c: string;
begin
edit1.Text:=c; //кол-во повторений цикла
memo1.Lines.Text:=f; //кол-во строк в мемо
while f<=c do //пока кол-во строк в мемо меньше значения в едит, делать
b:=inttostr(1+random(100));
memo1.Lines.Add(b);

и почему при истине, цикл будет бесконечным?

а почему он должен закончится?
Он закончится только если условие f<=c не выполняется

сейчас объясню ещё раз что вы пишите

var
f: string;//объявляем переменную типа стринг  с имнем f 
b: string;//объявляем переменную типа стринг  с имнем b 
c: string;//объявляем переменную типа стринг  с имнем c 
begin
edit1.Text:=c; //кол-во повторений цикла//присваиваем  значению свойства text компонента edit1 значение переменной c (и зачем? и какое значение содержится в переменной c ?)  
memo1.Lines.Text:=f; //кол-во строк в мемо//присваиваем  значению свойства text компонента memo1 значение переменной f (и зачем? и какое значение содержится в переменной f ?)  
while f<=c do //пока кол-во строк в мемо меньше значения в едит, делать//пока  значение переменной f меньше или равно значению переменной c выполняем нижестоящую строку (какое значение по вашему меньше "15" или "3")

b:=inttostr(1+random(100));// это попытка строковой переменной присвоить целочисленное значение которая (попытка) выполняется в цикле
memo1.Lines.Add(b)// тут то что выполняется после цикла а выполняется тут добавление строки в мемо ;

[Танкист]

ну хорошо, тогда как мне присвоить переменной с значения едит1 и как указать, что f это кол-во строк в мемо?

[vovk]

var
f,c: integer;
begin
c:=strtoint(edit1.Text); 
f:=strtoint(memo1.Lines.Text);// вот тут заковыка не знаю как вы выставляете значение для максимального количества линий, предположу что вводите в memo
while f>=c do
begin
memo1.Lines.Add(inttostr(1+random(100)));
inc(c);
end;

[Танкист]

максимального значения линий в мемо вообще нет, это хначение задаётся в едите, т.е. кол-во строк в мемо=значению в едите, которое пользователь задал
и ещё - что такое inc(c)?

[vovk]

inc(с) это увеличение переменной с на 1 эквивалент с:=c+1
я не говорил про максимальное количество линий "вообще", я говорил про максимальное значение линий которое выбрал пользователь, если в эдите задаётся только ограничение, и записывать надо с шаго м 1 то так

var
f,c: integer;
begin
f:=strtoint(edit1.Text) -1; 
c:=0;
while f>=c do
begin
memo1.Lines.Add(inttostr(1+random(100)));
inc(c);
end;

или

var
f: integer;
begin

f:=strtoint(edit1.Text) ; 
memo1.lines.clear;
while f>memo1.lines.count do
begin
memo1.Lines.Add(inttostr(1+random(100)));
end;