Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-07-2014
Avatar de eennzzoo
eennzzoo eennzzoo is offline
Miembro
NULL
 
Registrado: nov 2013
Ubicación: Argentina
Posts: 59
Poder: 11
eennzzoo Va por buen camino
Cómo implementar el siguiente código en una clase

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.
__________________
https://www.facebook.com/riverplateoficial

Última edición por ecfisa fecha: 01-07-2014 a las 16:17:44.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
error de missing separator con el siguiente codigo feliz-58 C++ Builder 7 28-03-2013 15:06:05
Como implementar este codigo en delphi 7 freddiaz07 Internet 4 16-09-2011 23:34:39
Me he atascado en el siguiente código David PHP 3 26-02-2007 01:15:52
Estoy atascado en el siguiente código David OOP 4 01-10-2006 11:45:45
Implementar el constructor de una clase Alcolea OOP 2 14-06-2006 07:39:05


La franja horaria es GMT +2. Ahora son las 15:11:43.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi