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

[Dvoishnik]

var
kol:byte;
i:Integer;
begin
i:=random(2);
ins(kol)
Edit1.Text:=Edit1.Text+IntToStr(i);
case kol of 
1:
2:
.......
20: 
end;
if i <> 0 then kol:=0;
end.

по case выполняйте условие

[Lorden]

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

var
kol:byte;
i:Integer;
begin
i:=random(2);
ins(kol)
Edit1.Text:=Edit1.Text+IntToStr(i);
case kol of 
1:
2:
.......
20: 
end;
if i <> 0 then kol:=0;
end.

по case выполняйте условие

Ругается на строчку

ins(kol)

[min@y™]

Attention!
copypaster detected!!!

хахаха, я так и знал!!

[Lorden]

Сообщение от min@y™

Attention!
copypaster detected!!!

хахаха, я так и знал!!

как ты можешь так говорить
Ни разу не видел функцию ins, в интернете что-то ничего не нашел

[min@y™]

как ты можешь так говорить
Ни разу не видел функцию ins, в интернете что-то ничего не нашел

бугага, я угораю, под столом!!!!!!!!!!!!!!!!!!11111111
ааааааа, держите меня семеро!!!!
двоешник на тобой прикололся аки ацкий тролль, намеренно сделав ошибку в имени функции...

гугли дальше, юный падаван...
ой, нимагу.

[Lorden]

Сообщение от min@y™

бугага, я угораю, под столом!!!!!!!!!!!!!!!!!!11111111
ааааааа, держите меня семеро!!!!
двоешник на тобой прикололся аки ацкий тролль, намеренно сделав ошибку в имени функции...

гугли дальше, юный падаван...
ой, нимагу.

Братуха ты под чем?) уже нагуглил) inc, только смысл кода не могу понять теперь

[min@y™]

Братуха ты под чем?

Какой я те братуха? Держи ся в руках.

уже нагуглил) inc

гугл умней оказался. я так и знал.

смысл кода не могу понять

ха! весь форум не может понять смысл твоей задачи!

[Dvoishnik]

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

inc, только смысл кода не могу понять теперь

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

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.

[Serge_Bliznykov]

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

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

var
kol:byte;
i:Integer;
begin
i:=random(2);
inc(kol) // наращиваем переменную на +1

я бы сильно не рекомендовал наращивать переменную, в которую никто ничего ранее не ложил. Там мусор. если к мусору прибавить 1, будет всё равно мусор...

[Dvoishnik]

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

я бы сильно не рекомендовал наращивать переменную, в которую никто ничего ранее не ложил. Там мусор. если к мусору прибавить 1, будет всё равно мусор...

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