StringGrid1SetEditText

[Artsiom]

Доброго времени суток.
Требуется организовать проверку введенных чисел, так что бы они в матрице не повторялись.
Решил использовать StringGrid1SetEditText.

var
  a : array of array of real;
  i, j : integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.StringGrid1.ColCount := StrToInt(Form1.Edit2.Text);
 Form1.StringGrid1.RowCount := StrToInt(Form1.Edit1.Text);
 SetLength(a,StrToInt(Form1.Edit2.Text),StrToInt(Form1.Edit1.Text));
end;
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
begin
     a[ACol,ARow] := StrToFloat(Value);
end;

Думаю для начала нужно записать это число в массив, а потом его проверять.
Но столкнулся с проблемой. Выдаёт ошибку. Может я что-то не правильно делаю?
Для начала задаю размерность динамическому массиву.
Потом как вводиться число я записываю его в ячейку массива используя удобную процедуру TForm1.StringGrid1SetEditText(Sende r: TObject; ACol, ARow: Integer;
const Value: string);
которая выдаёт мне номер строки и столбца ячейки и что я туда записываю.
Включается эта процедура при вводе числа.
Но не получается.
Может я ошибаюсь? Англ язык не очень хорошо знаю и ничего толкового по StringGrid1SetEditText не нашел, но думаю что работает именно так.

[Artsiom]

Помогите пожалуйста.

[Lokos]

проверять нужно во время ввода или уже когда полностью матрица в ведена?
вот как то так

mas:aray of array:integer;
...
procedure SerchPovtor(chislo,n,m:integer):boolean;
var
   i,j:integer;
begin
   for i:=0 to n do
      for j:=0 to m do
         if mas[i,j]=chislo then
            SerchPovtor=true
         else
             SerchPovtor=false
   
end;

для ввода можно использовать обычный edit и кнопку в которой будет вызов функции и передача параметров размерности и числа

[Serge_Bliznykov]

присоединяюсь к вопросу Lokos

и ещё. проверить несложно. Что делать, если повторы найдены?


p.s.

Думаю для начала нужно записать это число в массив, а потом его проверять.

строго говоря - не обязательно. Можно написать много различных вариантов. Использование дополнительного массива не является обязательным условием, ведь в самом StringGrid можно получить содержимое любой ячейки по индексам!

[Lokos]

отвлекли просто, выводить сообщение что найден повтор ну это уже в кнопочке условие надо приписать

if SerchPovtor(chislo,n,m)=true then
   Showmessage('повтор')
else
...

[Artsiom]

Ага, ну так я уже думал что ничего не получиться и придётся криво через кнопочку делать проверку на повторения.
Пока подойдёт и так

function SerchPovtor(n, m : integer): boolean;
var
   i1,j1 :integer;
begin
Result := false;
   for i1:=0 to Form1.StringGrid1.ColCount do
      for j1:=0 to Form1.StringGrid1.RowCount do
         if Form1.StringGrid1.Cells[i1, j1]<>'' then
         if StrToFloat(Form1.StringGrid1.Cells[i1, j1])=StrToFloat(Form1.StringGrid1.Cells[n, m]) then
         if ((i1<>n) or (j1<>m)) then
          Result := true;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
     if SerchPovtor(StringGrid1.Col,StringGrid1.Row)=true then
     begin
   Showmessage('повтор');
 StringGrid1.Row:=ARow;
StringGrid1.Col:=ACol;
     end;
end;

Помогите выйти из бесконечного цикла, но так, что бы фокус был на той ячейки которая проверялась на повторения.

Я не помню что сделал когда пытался завершить процесс, но когда у меня завис диспетчер задач я немного наложил в штаны. Хоть кода и не много, но жалко терять.

StringGrid1.Row:=ARow;
StringGrid1.Col:=ACol;

Не могу сообразить, что можно переписать в вышеописанном.