[vldvas]

привет, есть ли в делфи возможность определить существует ли строка в таблице StringGrid, если строка существует присвоить одно значение (скажем 1), нет строки другой присваиваем другое значение (скажем 0)

Если возможность есть - приведите пример кода поподробнее
Заранее спасибо

[lmikle]

Что значит "существует строка"?

Если наличие какой-то строки в одной из ячеек, то просто перебираем все ячейки в гриде и каждую проверяем, типа:

Код:

var
  S : String;
  iCol, iRow : Integer;
  Flag : Boolean;
begin
  S := 'string to find';
  Flag := False;
  For iCol := 0 To StringGrid1.ColCount-1 Do
    For iRow := 0 To StringGrid.RowCount-1 Do
      Begin
        Flag := Pos(S,StringGrid1.Cells[iCol,iRow) > 0;
        If Flag Then Break; // Ну что бы не перебирать остаток, если уже нашли
      End
  If Flag Then ShowMesage('Found') Else ShowMessage('Not found');