[[escafandra]]

Empezado por eennzzoo

Hola, lo probe, pero no borra nada del archivo. Por ejemplo puse TS->Delete(0); en el boton eliminar, y eso tendria que eliminar la primer linea del txt, pero el txt sigue estando igual.

Creo que no habéis entendido a eennzzoo, tiene razón, no se borra del archivo.

Quizas eennzzoo está buscando un ajuste como este:

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);
      Lista->SaveToFile(ExtractFilePath(Application->Name)+"file.txt");
    }
  } else
    MessageBox(0,"No se encontró una persona con ese DNI","", MB_OK);
}

Saludos.