Запись заданного количества нулей в StringGrid

[rainbow]

Доброго времени суток! Возникла следующая проблема: есть код, который по нажатию кнопки заполняет StringGrid случайными значениями от 1 до 9 и добавляет в него заданное количество значений 0 (в данном случае 4)

var
  Form1: TForm1;
  i1,j1:integer;
.................

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
begin
randomize;
for i := 0 to StringGrid1.RowCount-1 do //проходим по всем ячейкам
for j := 0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[i,j]:=IntToStr(random(9)+1); //заполняем ячейки случайными значениями от 1 до 9
for k:=4 downto 1 do //заполняем заданное количество ячеек (в данном случае четыре) значениями 0
begin
repeat //это для того чтобы в одну и ту же ячейку не записать два раза 0
i:=random(StringGrid1.RowCount); //получаем номер пары случайной ячейки
j:=random(StringGrid1.ColCount);
until (i<>i1) or (j<>j1); //сравнение: если номер пары сгенерированной ячейки совпадает с предыдущей, генерируем снова
i1:=i;//запоминаем текущий номер пары
j1:=j;
StringGrid1.Cells[i,j]:='0';//записываем 0 в ячейку
end; //for k:=4
end;

Работает вроде нормально, но после множества нажатий на кнопку в StringGrid иногда получается так, что значений 0 во всём StringGrid оказывается 3 а не 4. Вопрос: почему? И как это можно исключить?

[astecenko]

Начальные значения для i1, j1 задаются где-то? Скорее всего надо их инициализировать -1.
И условие в repeat возможно лучше заменить на: not((i=i1) and (j=j1))

[rainbow]

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

Начальные значения для i1, j1 задаются где-то? Скорее всего надо их инициализировать -1.
И условие в repeat возможно лучше заменить на: not((i=i1) and (j=j1))

Их по нажатию кнопки нельзя инициализировать, иначе будет сбрасываться предыдущее состояние, да и по умолчанию должно быть значение 0. Если только в обработчике FormCreate, сделал:

procedure TForm1.FormCreate(Sender: TObject);
begin
i1:=-1;
j1:=-1;
end;

Условие также заменил на вышеприведенное, но это не помогло.
Я похоже понял в чём дело: генератор СЧ может генерировать одинаковые пары не один раз, и может получиться например так, что из 4 ячеек - 2 может попасть в одну и ту же ячейку, а при помощи i1,j1 исключается лишь одна. Видимо генерируемые пары i,j придется записывать в массив и при следующей генерации сравнивать пары с элементами массива, либо наполнять массив номерами пар, каждый раз сравнивая их, чтобы не было одинаковых пар и заполнять из массива StringGrid.

[Serge_Bliznykov]

until (i<>i1) or (j<>j1); //сравнение: если номер пары сгенерированной ячейки совпадает с предыдущей, генерируем снова

код Вы писали? Комментарий, главное, правильный. Вы действительно генерите повторно пару индексов, если она совпадает с предыдущей. Исключительно - с предыдущей. Но никак не проверяете, если она совпадает с теми, которые были один\два\X шагов назад...
Вы попробуйте сделать на 4 нуля, а, скажем, 10 - разница (из-за этой ошибки) станет ещё наглядней!

бороться с этим можно - либо накапливая в массиве ВСЕ сгенерённые координаты (вам хватит массива от 1 до K (k - нужное количество нулей).
Либо, генерить нули до тех пор, пока функция - ПодсчитатьКоличествоНулейвStringGri d не вернёт нужное число:

repeat 
  i:=random(StringGrid1.RowCount); //получаем номер пары случайной ячейки
  j:=random(StringGrid1.ColCount);
  StringGrid1.Cells[i,j]:='0';//записываем 0 в ячейку
until CountZeroInStringGrid(StringGrid1) = 4;

очевидно, что первый способ намного эффективней (я бы рекомендовал остановится именно на нём!), но второй намного проще в реализации (но тем не менее, пользоваться им не рекомендую).

[rainbow]

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

код Вы писали? Комментарий, главное, правильный. Вы действительно генерите повторно пару индексов, если она совпадает с предыдущей. Исключительно - с предыдущей. Но никак не проверяете, если она совпадает с теми, которые были один\два\X шагов назад...
Вы попробуйте сделать на 4 нуля, а, скажем, 10 - разница (из-за этой ошибки) станет ещё наглядней!

бороться с этим можно - либо накапливая в массиве ВСЕ сгенерённые координаты (вам хватит массива от 1 до K (k - нужное количество нулей).
Либо, генерить нули до тех пор, пока функция - ПодсчитатьКоличествоНулейвStringGri d не вернёт нужное число:

repeat 
  i:=random(StringGrid1.RowCount); //получаем номер пары случайной ячейки
  j:=random(StringGrid1.ColCount);
  StringGrid1.Cells[i,j]:='0';//записываем 0 в ячейку
until CountZeroInStringGrid(StringGrid1) = 4;

очевидно, что первый способ намного эффективней (я бы рекомендовал остановится именно на нём!), но второй намного проще в реализации (но тем не менее, пользоваться им не рекомендую).

Это всё хорошо, но проблема в том, что на самом деле у меня k динамический, задается с клавиатуры, придется создавать динамический массив:

var 
massivij: array of array of integer;
.............................................

Его инициализировать:

SetLength(massivij,1,k);

И записывать в него координаты.

[Serge_Bliznykov]

Это всё хорошо, но проблема в том, что на самом деле у меня k динамический, задается с клавиатуры, придется создавать динамический массив:

var 
massivij: array of array of integer;

ну, это Вы зря!
у вас же НЕ ОБА параметра динамические!

я бы предложил примерно такое решение:

procedure TForm1.Button2Click(Sender: TObject);
var
  massivij: array of TPoint;
  i, j, k, i0, AllreadyFillIndex: integer;
  WasBefore: boolean;
begin
  k := StrToIntDef(Edit1.Text, 0);
  if k > 0 then begin
    AllreadyFillIndex := -1;
    SetLength(massivij, k);
    repeat
      repeat
        i := random(StringGrid1.RowCount); //получаем номер пары случайной ячейки
        j := random(StringGrid1.ColCount);
        WasBefore := false;
        for i0 := 0 to AllreadyFillIndex do
          if (massivij[i0].x = i) and
            (massivij[i0].y = j) then begin
            WasBefore := true;
            break
          end;
        if Not WasBefore then begin
          StringGrid1.Cells[i, j] := '0'; //записываем 0 в ячейку
          inc(AllreadyFillIndex); // увеличим счётчик заполненных координат
          massivij[AllreadyFillIndex].x := i; // сохраним заполненные координаты для проверки
          massivij[AllreadyFillIndex].y := j
        end;
      until not WasBefore;
    until AllreadyFillIndex = (k - 1); // нужное число нулей заполнено! миссия выполнена
    SetLength(massivij, 0); // освободим память массива
  end;
end;

[rainbow]

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

ну, это Вы зря!
у вас же НЕ ОБА параметра динамические!

я бы предложил примерно такое решение:

Спасибо! Через TPoint я что то не подумал сделать.