Hola, tengo este codigo [agrega datos de clientes a un archivo] y quisiera implementarle una clase para este codigo.
Código:
void __fastcall TAgregarCliente::menuNuevoClick(TObject *Sender)
{
editNombre->Text="";
editApellido->Text="";
editDni->Text="";
}
void __fastcall TAgregarCliente::btnGuardarClick(TObject *Sender)
{
TS1->LoadFromFile("datos.txt");
if ((editNombre->Text != "")&&(editApellido->Text != "")&&(editDni->Text != "")){
for(int i=0; i<TS1->Count; i=i+3) {
if (TS1->Strings[i]==editDni->Text) {
editNombre->Text = "";
editApellido->Text = "";
editDni->Text="";
Application->MessageBox(L"El cliente ya es socio.",L"AVISO", MB_OK | MB_ICONEXCLAMATION);
break;
}else if (i==(TS1->Count-3)){
FILE *F1;
char Nombre[30], Apellido[30], Dni[10];
strcpy(Nombre, AnsiString(editNombre->Text).c_str());
strcpy(Apellido, AnsiString(editApellido->Text).c_str());
strcpy(Dni, AnsiString(editDni->Text).c_str());
F1 = fopen("datos.txt", "a");
if( FS1 == NULL ){
ShowMessage("El archivo no se pudo guardar");
return;
}
fprintf(F1, "%s\n", Dni);
fprintf(F1, "%s\n", Nombre);
fprintf(F1, "%s\n", Apellido);
fclose(F1);
editNombre->Text = "";
editApellido->Text = "";
editDni->Text = "";
Application->MessageBox(L"Has agregado un nuevo cliente.",L"Nuevo cliente", MB_OK);
}
}
}else {
Application->MessageBox(L"Completar todos los campos.",L"AVISO", MB_OK | MB_ICONEXCLAMATION);
}
}
Gracias.