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:
Código:
#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.