Orientación como convertir procedure a clases

[webmasterplc]

Fino Voy a probar a ver como me va

[[gatosoft]]

Yo prefiero trabajar el siguiente modelo (pseudo codigo):

Código Delphi [-]
TEquipo = class(Tobject)
Private
  Procedure setCodigo(Value: Integer)
Public
  Property Codigo: Integer read Fcodigo write setCodigo
  Property Modelo
  Property Descripcion
  {....}
  Construtor
  Destructor
  {....}
  function Guardar
  function Eliminar
end;


Procedure TEquipo.setCodigo(Value: Integer);
Begin
   {al asignar, el codigo Consultas si el codigo existe y cargas la info en los demas datos.. si no existe, no deberias asignar el codigo (si es un incremental o algo asi en la BD).. FCodigo=-1}
   FModelo:= consulta.modelo
   FDescripcion:= consulta.modelo
end;

function Guardar()
begin
if fcodigo= -1 then InsertarEnBD
else ActualizarEnBD
end;

Lo utilizarias de esta forma:

Código Delphi [-]
equipo:= TEquipo.Crate( constructor para que te cargue un eqquipo>)
equipo.codigo:= 5; {carga los datos}
equipo.Descripcion:= 'nueva descripcion'
equipo.guardar

Por otro lado, te recomiendo realizar todas las operaciones de base de datos en otro unidad o clase... por si algun dia decides cambiar los componentes o el motor de base de datos, no afectes la dinamica de tu clase TEquipo...

saludo,