Borrar lineas de txt

[ecfisa]

Hola eennzzoo

void DeleteData(TStrings *TS, String dni)
{
  int ix = TS->IndexOf(dni);

  if (ix != -1) {
    if (MessageBox(0,"¿ Desea borrar los datos ?","",MB_YESNO)==IDYES) {
      TS->Delete(ix+2);
      TS->Delete(ix+1);
      TS->Delete(ix);
    }
  } else
    MessageBox(0,"No se encontró una persona con ese DNI","", MB_OK);
}

Ejemplo de uso:

void __fastcall TForm1::btnDeleteClick(TObject *Sender)
{
  DeleteData(Lista, EditDNI->Text);
}

Saludos