Cómo implementar el siguiente código en una clase

[eennzzoo]

Empezado por dec

Hola,

No es exactamente lo mismo, porque, por lo demás debe haber muchísimas maneras de hacer lo mismo o algo parecido. Por otro lado, el siguiente código no es C++ (sino Delphi), pero, en fin, por si pudiera servirte de algo, aquí tienes:

Código Delphi [-]
unit UContactos;

interface

uses
  Classes, SysUtils;

type
  EContactoInvalido = Exception;

type
  TContacto = record
    DNI: string;
    Nombre: string;
    Apellidos: string;
  end;

type
  TContactos = class(TObject)
  private
    FRutaBaseDatos: string;
    FContenidoBaseDatos: TStrings;
  private
    function ExisteContacto(const datosContacto: TContacto): Boolean;
  public
    constructor Create(const rutaBaseDatos: string = '');
  public
    procedure GuardarContactos();
    function InsertarContacto(const datosContacto: TContacto): Integer;
  end;

implementation

const
  RUTA_POR_DEFECTO_BASE_DATOS = 'Contactos.txt';

resourcestring
  rsDatosContactoInvalidos = 'Datos del contacto inválidos.';

{ TContactos }

constructor TContactos.Create(const rutaBaseDatos: string = '');
begin
  FRutaBaseDatos := rutaBaseDatos;
  FContenidoBaseDatos := TStringList.Create();

  if Trim(FRutaBaseDatos) = EmptyStr then
    FRutaBaseDatos := ExtractFilePath(ParamStr(0))+RUTA_POR_DEFECTO_BASE_DATOS;

  if FileExists(rutaBaseDatos) then
    FContenidoBaseDatos.LoadFromFile(FRutaBaseDatos);
end;

function TContactos.InsertarContacto(const datosContacto: TContacto): Integer;
begin
  Result := -1;
  if (Trim(datosContacto.DNI) = EmptyStr)
   or (Trim(datosContacto.Nombre) = EmptyStr)
    or (Trim(datosContacto.Apellidos) = EmptyStr) then
  begin
    raise EContactoInvalido.Create(rsDatosContactoInvalidos);
  end;
  if not Self.ExisteContacto(datosContacto) then
  begin
    Result := FContenidoBaseDatos.Add(Format
    (
      '%s|%s|%s',
      [datosContacto.DNI, datosContacto.Nombre, datosContacto.Apellidos]
    ));
  end;
end;

procedure TContactos.GuardarContactos();
begin
  if Trim(FRutaBaseDatos) = EmptyStr then
    FRutaBaseDatos := ExtractFilePath(ParamStr(0))+RUTA_POR_DEFECTO_BASE_DATOS;
  FContenidoBaseDatos.SaveToFile(FRutaBaseDatos);
end;

function TContactos.ExisteContacto(const datosContacto: TContacto): boolean;
begin
  Result := FContenidoBaseDatos.IndexOf(datosContacto.DNI) = -1;
end;

end.

Ok gracias.

[ecfisa]

Hola eennzzoo.

Yo también había pensado en una opción similar a la publicada por dec.

.h:

#ifndef Unit2H
#define Unit2H

#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>

class Cliente {

private:
  String FNombre;
  String FApellido;
  String FDni;
  String FFileName;
  TStrings *FTS;

public:
  Cliente();
  __property String Nombre   = { read = FNombre, write = FNombre };
  __property String Apellido = { read = FApellido, write = FApellido };
  __property String Dni      = { read = FDni, write = FDni };
  __property String FileName = { read = FFileName, write = FFileName };
  bool Open();
  bool GetData(const String Dni);
  bool Delete(const String Dni);
  bool Save();
  ~Cliente();
};

#endif

.cpp

#pragma hdrstop
#include "Unit2.h"
#pragma package(smart_init)

Cliente::Cliente()
{
  FTS = new TStringList;
}

bool Cliente::Open()
{
  FTS->LoadFromFile(FFileName);
  return FileExists(FFileName);
}

bool Cliente::GetData(const String Dni)
{
  int p = FTS->IndexOf(Dni);
  if (p != -1) {
    FNombre   = FTS->Strings[p-2];
    FApellido = FTS->Strings[p-1];
    FDni      = FTS->Strings[p];
    return true;
  } else {
    MessageBox(0,"Cliente no encontrado", "", MB_ICONERROR);
    return false;
  }
}

bool Cliente::Delete(const String Dni)
{
  int p = FTS->IndexOf(Dni);
  bool r = false;
  if (p == -1)
    MessageBox(0,"Cliente no encontrado", "", MB_ICONERROR);
  else if (MessageBox(0, "¿ Borra el cliente ?","",MB_YESNO+MB_ICONQUESTION)==IDYES) {
    FTS->Delete(p);
    r = true;
  }
  return r;
}

bool Cliente::Save()
{
  if (FNombre.IsEmpty() || FApellido.IsEmpty() || FDni.IsEmpty()) {
    MessageBox(0,"Faltan uno o mas datos requeridos", "", MB_ICONERROR);
    return false;
  } else if (FTS->IndexOf(FDni)!= -1) {
    MessageBox(0,"Cliente existente", "", MB_ICONERROR);
    return false;
  } else {
    FTS->Add(FNombre);
    FTS->Add(FApellido);
    FTS->Add(FDni);
    FTS->SaveToFile(FFileName);
    return true;
  }
};

Cliente::~Cliente()
{
  delete FTS;
}

Ejemplo de uso:

...
#include "Unit2.h"
...

Cliente *cl;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 cl = new Cliente();
 cl->FileName = "cliente.txt";  /* ruta+nombre de archivo */
 cl->Open();
}

void __fastcall TForm1::btnShowClick(TObject *Sender)
{
  if (cl->GetData(Edit1->Text)) {
    edNom->Text = cl->Nombre;
    edApe->Text = cl->Apellido;
    edDni->Text = cl->Dni;
  }
}

void __fastcall TForm1::btnDeleteClick(TObject *Sender)
{
  if (cl->Delete(Edit1->Text)) {
    edNom->Clear();
    edApe->Clear();
    edDni->Clear();
  }
}

void __fastcall TForm1::btnSaveClick(TObject *Sender)
{
  cl->Save();
}
...

Espero que de las dos sugerencias puedas sacar ideas para implementar tu clase.

Saludos

[eennzzoo]

Empezado por ecfisa

Hola eennzzoo.

Yo también había pensado en una opción similar a la publicada por dec.

.h:

#ifndef Unit2H
#define Unit2H

#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>

class Cliente {

private:
  String FNombre;
  String FApellido;
  String FDni;
  String FFileName;
  TStrings *FTS;

public:
  Cliente();
  __property String Nombre   = { read = FNombre, write = FNombre };
  __property String Apellido = { read = FApellido, write = FApellido };
  __property String Dni      = { read = FDni, write = FDni };
  __property String FileName = { read = FFileName, write = FFileName };
  bool Open();
  bool GetData(const String Dni);
  bool Delete(const String Dni);
  bool Save();
  ~Cliente();
};

#endif

.cpp

#pragma hdrstop
#include "Unit2.h"
#pragma package(smart_init)

Cliente::Cliente()
{
  FTS = new TStringList;
}

bool Cliente::Open()
{
  FTS->LoadFromFile(FFileName);
  return FileExists(FFileName);
}

bool Cliente::GetData(const String Dni)
{
  int p = FTS->IndexOf(Dni);
  if (p != -1) {
    FNombre   = FTS->Strings[p-2];
    FApellido = FTS->Strings[p-1];
    FDni      = FTS->Strings[p];
    return true;
  } else {
    MessageBox(0,"Cliente no encontrado", "", MB_ICONERROR);
    return false;
  }
}

bool Cliente::Delete(const String Dni)
{
  int p = FTS->IndexOf(Dni);
  bool r = false;
  if (p == -1)
    MessageBox(0,"Cliente no encontrado", "", MB_ICONERROR);
  else if (MessageBox(0, "¿ Borra el cliente ?","",MB_YESNO+MB_ICONQUESTION)==IDYES) {
    FTS->Delete(p);
    r = true;
  }
  return r;
}

bool Cliente::Save()
{
  if (FNombre.IsEmpty() || FApellido.IsEmpty() || FDni.IsEmpty()) {
    MessageBox(0,"Faltan uno o mas datos requeridos", "", MB_ICONERROR);
    return false;
  } else if (FTS->IndexOf(FDni)!= -1) {
    MessageBox(0,"Cliente existente", "", MB_ICONERROR);
    return false;
  } else {
    FTS->Add(FNombre);
    FTS->Add(FApellido);
    FTS->Add(FDni);
    FTS->SaveToFile(FFileName);
    return true;
  }
};

Cliente::~Cliente()
{
  delete FTS;
}

Ejemplo de uso:

...
#include "Unit2.h"
...

Cliente *cl;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 cl = new Cliente();
 cl->FileName = "cliente.txt";  /* ruta+nombre de archivo */
 cl->Open();
}

void __fastcall TForm1::btnShowClick(TObject *Sender)
{
  if (cl->GetData(Edit1->Text)) {
    edNom->Text = cl->Nombre;
    edApe->Text = cl->Apellido;
    edDni->Text = cl->Dni;
  }
}

void __fastcall TForm1::btnDeleteClick(TObject *Sender)
{
  if (cl->Delete(Edit1->Text)) {
    edNom->Clear();
    edApe->Clear();
    edDni->Clear();
  }
}

void __fastcall TForm1::btnSaveClick(TObject *Sender)
{
  cl->Save();
}
...

Espero que de las dos sugerencias puedas sacar ideas para implementar tu clase.

Saludos

Si ahora si, gracias.

[dec]

Hola,

Conste que mi clase de más arriba contiene un error: no destruyo la instancia de "FContenidoBaseDatos". No me he dado cuenta antes.

[aguml]

ecfisa ¿Que es eso de __property? Suena mas a un componente.

[ecfisa]

Hola aguml.

Básicamente una propiedad, es una extensión creada para C++ Builder que permite unificar métodos de acceso y modificación a miembros de una clase. Su uso no es privativo de los componentes.

Cabe aclarar que C++ estandar no incluye el concepto de propiedad y que C++ Builder recibe de la VCL, si tratásemos con ANSI C++ tendríamos que escribir:

class MiClass {
private:
  int FValue;
public:
  void SetValue(int Value) { FValue = Value; }
  int GetValue() { return FValue; }
};

Saludos