Работа со строкой

[Serge_Bliznykov]

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

обнулить думате сам не догадается??

уверен, что не догадается!

более того, программа будет иногда работать, а иногда - не работать.
Причину новичку (да порой и не только новичку) понять очень сложно.

честное слово, я бы поступил так, как это делают многие современные компиляторы (C#, Java и т.п.) - если Вы обращаетесь к переменной до того, как Вы в неё что-то записали - не компилировать код, это ошибка программиста, такой код не будет корректно работать. А кому нужен компилятор, который потакает ошибкам программиста?!
(ноги этой проблемы растут от того, что разработчики в Borland решили помочь программистам и поэтому, все ГЛОБАЛЬНЫЕ статические переменные стандартных типов компилятор сам обнуляет при генерации кода. Поэтому, если Вы используете глобальную переменную типа integer, то можете быть уверенным, в ней изначально ноль.)
Впрочем, это уже на форму обсуждалось многократно. Много копий было сломано.
Я высказываю исключительно собственное субъективное мнение. IMHO.

[Lorden]

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

че не понятного??

var
kol:byte;
i:Integer;
begin
i:=random(2);
inc(kol) // наращиваем переменную на +1
Edit1.Text:=Edit1.Text+IntToStr(i);
case kol of // если количество цифр равно    
1:                 // 1       выполняем что ты хочешь пиши суда    
2:                 // 2       выполняем что ты хочешь пиши суда    
.......             // и так далее 
20:                  
end;
if i <> 0 then kol:=0;  // если к строке добавили не ноль обнуляем счечик
end.

подскажи пожалуйста почему в Memo1 ничего не появляется при таком коде?

var
kol:byte;
i:Integer;
begin
i:=random(2);
inc(kol);
Edit1.Text:=Edit1.Text+IntToStr(i);
case kol of
1: Memo1.Lines.Add('Умножить на 2');
2: Memo1.Lines.Add('Умножить на 4');
end;
if i <> 0 then kol:=0;
end;

[Aleksandr H.]

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

подскажи пожалуйста почему в Memo1 ничего не появляется при таком коде?

var
kol:byte;
i:Integer;
begin
i:=random(2);
inc(kol);
Edit1.Text:=Edit1.Text+IntToStr(i);
case kol of
1: Memo1.Lines.Add('Умножить на 2');
2: Memo1.Lines.Add('Умножить на 4');
end;
if i <> 0 then kol:=0;
end;

может так подскажет?

var
kol:byte;
i:Integer;
begin
i:=random(2);
inc(kol);
Edit1.Text:=Edit1.Text+IntToStr(i);
case kol of
1: Memo1.Lines.Add('Умножить на 2');
2: Memo1.Lines.Add('Умножить на 4');
else: Memo1.Lines.Add(IntToStr(kol));
end;
if i <> 0 then kol:=0;
end;

[Lorden]

Сообщение от Aleksandr H.

может так подскажет?

var
kol:byte;
i:Integer;
begin
i:=random(2);
inc(kol);
Edit1.Text:=Edit1.Text+IntToStr(i);
case kol of
1: Memo1.Lines.Add('Умножить на 2');
2: Memo1.Lines.Add('Умножить на 4');
else: Memo1.Lines.Add(IntToStr(kol));
end;
if i <> 0 then kol:=0;
end;

В Memo1 всегда добавляется цифра 157

[Aleksandr H.]

Вот и ответ: kol не получает значения 1 или 2, следовательно ничего в мемо не выводится

[Iron Monk]

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

В Memo1 всегда добавляется цифра 157

А если генератор инициировать?

[Dvoishnik]

Сообщение от Iron Monk

А если генератор инициировать?

нужно но не в нем проблема

Serge_Bliznykov любезно напомнил, что переменные обнулять нужно.
обнулить нужно ге то вне тела продпрограммы, например при создании формы. П.С. переменная должна быть глобальной.

[Serge_Bliznykov]

П.С. переменная должна быть глобальной.

Точно.
И в данном случае это принципиально!

[Dvoishnik]

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

Точно.
И в данном случае это принципиально!

а разве нет??

[Serge_Bliznykov]

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

а разве нет??

я без сарказма. И ни разу не шутил.
в данном случае Kol нужно делать глобальной.

(ну или менять логику (алгоритм) работы напрочь)