Crear Clases propias o Usar Existentes

[jorllazo]

Me refiero pues por ejempplo que uses los componentes de ADO, TAdoTable, TAdoConnection y luego usar el componente TDBEdit por ejemplo para recuperar el nombre de un articulo de la BD? y usar estos componentes TDBEdit, TDBCombo, etc,....

Pôr otro lado a lo que me refiero es crear una clase que sea por ejemplo

Código Delphi [-]
 
           type 
                  TArticulo = class
                  private
                      sReferencia : string;
                      sDescripcion : string
                      iCantidad : Short;
                  public
                      property Referencia: string read Referencia write Referencia
                      property Descripcion: string read Descripcion write Dascripcion
                      property Cantidad: short read Cantidad write Cantidad
                      procedure loadFromDB;
           end
 
luego:
 
             procedure TArticulo.LoadFromDB
             begin
                   //codigo de acceso a datos para extraer este Articulo
                   //Rellenar las propiedades del artículo
                   //tarticulos es un TADoTable

                   sDescripcion := trim(tArticulos.fields['Descr'].Value);
                   iCantidad := tArticulos.fields['Cantidad'].Value;
                   .....
                   
             end

Ahora habiora que crear un Objeto de la clase, largarllo de la BD con su metodo y usarlo en el codigo. Pero entonces ya no podrias usar el TDBEdit por ejemplo. Tendrias que usar el TEDit y hacer la asociacion de controles y propiedades del objeto a mano. ¿Me he explicado mejor?, si no lo intento de nuevo