Ayuda con un buscador en un StringGrid

[ecfisa]

Hola Henoc y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Yo haría:

#define COL_CEDULA 3   

bool ExistePaciente(TStringGrid *SG, AnsiString Nombre)
{
bool Existe = false;
  for(int i = SG->FixedRows; i < SG->RowCount && !Existe; i++)
    if(SG->Cells[COL_CEDULA][i] == Nombre) Existe = true;
  return Existe;
}

/* Llamada de ejemplo: */
void __fastcall TForm1::btnBuscarClick(TObject *Sender)
{
 if(ExistePaciente(StringGrid1, Edit1->Text))
   ShowMessage("Existe");
 else
   ShowMessage("No existe");
}

Saludos.