Llenar Clase con DataSet

[JoseAntonio]

Hola, yo anduve haciendo experimentos en ese aspecto durante mis ratos libres, aqui un ejemplo, espero que le sirva

Código Delphi [-]
procedure TPadre.loadFromDB(CodPadre: String);
var
  SQLStr: string;
  ADataSet: TDataSet;
begin
  sqlStr:= 'select * from padre where codpadre = ' + QuotedStr(CodPadre);
  TDMDBManager.GetSQLDataSet(SQLStr, ADataSet); // Clase que genera Datasets
  fCodPadre := ADataset.fieldByName('CODPADRE').AsString;
  fNombres := AdataSet.FieldbyName('NOMBRESPADRE').AsString;
  fSexo := ADataSet.FieldbyName('SEXO').AsInteger;
  fTipoDocumento := ADataSet.FieldByName('TIPODOCUMENTO').AsInteger;
  fEstadoCivil := ADataSet.FieldByName('ESTADOCIVIL').AsInteger;
  fFechaNac := ADataSet.FieldbyName('FECHANACIMIENTO').AsDateTime;
  fDescPadre := ADataSet.FieldByName('DESCPADRE').AsString;
  LoadChilds;   // para leer los hijos
end;