Создал прогу Lazarus 2.0.12
На форме кнопка при ее нажатии клавиши выполняется функция (листинг функции внизу) случайного выбора 1 и 0 (страна или ее столица) если случайно выбран 1, то все работает, но если выбран 0, то возникает ошибка List index exceeds bounds (0).
форумчане подскажте в чем причина?
/////////////////////////////////////////////////////////////////////////////////
function TForm5.str_sto(f:string):string;//функция случайно выбранная страна или столица stringgrid1 form4
// c:integer;//глобальная переменная страна/столица}
{
для проверки
в поле Edit28 выводится страна или столица
в поле Edit29 выводится выбранное значение 1 или 0
}
begin
F:='1';
form4.Edit29.Text:='';
randomize;
c:=random(2);
form4.Edit29.Text:=inttostr(c);
if c=0 then form4.Edit28.Text:='страна';
if c=1 then form4.Edit28.Text:='столица';
if c=0 then result:='страна';
if c=1 then result:='столица';
end;
/////////////////////////////////////////////////////////////////////////////////
