[vldvas]

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

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

[lmikle]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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');