![Antiguo](images/statusicon/post_old.gif)
22-03-2014
|
![Avatar de eennzzoo](image.php?u=83505&dateline=1396199003) |
Miembro
NULL
|
|
Registrado: nov 2013
Ubicación: Argentina
Posts: 59
Reputación: 11
|
|
Cita:
Empezado por ecfisa
Hola eennzzoo
Código:
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:
Código:
void __fastcall TForm1::btnDeleteClick(TObject *Sender)
{
DeleteData(Lista, EditDNI->Text);
}
Saludos ![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)
|
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.
|