안녕하세요...

전부다 검색을 하셔야 하구요.. 많은 양의 레코드를 그리드에 뿌리셨다면 검색속도는 느려짐을 감수하셔야 할듯..

아래 코드를 참고 하세요...

function FindTextForStringGrid(StringGrid: TStringGrid; const Text: string): Integer;

function FindText(StringGrid: TStringGrid; const Text: string): Integer;
// Result: if found Text returns RowIndex, else returns -1
var
ColIndex, RowIndex: Integer;
begin
Result := -1;
for RowIndex := 0 to StringGrid.RowCount - 1 do
begin
for ColIndex := 0 to StringGrid.ColCount - 1 do
begin
if Pos(StringGrid.Cells[ColIndex, RowIndex], Text) <> 0 then // Found
begin
Result := RowIndex;
Exit;
end;
end;
end;
end;

var
RowIndex: Integer;
TopRowIndex: Integer;
SelRect: TGridRect;
begin
RowIndex := FindText(StringGrid, Text);
if RowIndex <> -1 then
begin
TopRowIndex := RowIndex - StringGrid.VisibleRowCount + StringGrid.FixedRows;
if TopRowIndex < StringGrid.FixedRows then
TopRowIndex := StringGrid.FixedRows;
StringGrid.TopRow := TopRowIndex;
SelRect.Left := 0;
SelRect.Top := RowIndex;
SelRect.Right := StringGrid.ColCount;
SelRect.Bottom := RowIndex;
StringGrid.Selection := SelRect;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
FindTextForStringGrid(StringGrid1, '홍길동');
end;

어쩔수가 없네요 ㅠ
DB에서 불러 오면 좋은데.. 출력된 데이터에서 다시 검색을 하려니... ㅠ

MIN님 감사합니다. ^^