TDbfDataSet Append From

[Marcelo Coelho Silva]

Prezados Senhores,
Como posso fazer um APPEND FROM FILE.TXT quando estou utilizando
TDbfDataSet ?
??? oDbfDataSet1:AppendFrom( "File.txt" ) ???
Obrigado,
Marcelo Coelho Silva
Brasil

[zeasoftware]

puedes sobrecargar la clase TDBFDataSet:
Method AppendFrom( cDBF ) CLASS TDbfDataSet
::SaveState( .t. )
( ::cAlias )->( __dbApp( cDBF, { },,,,, .F., ) )
::RestoreState( .t. )
Return ( Nil )
Es mas detallado pero asi te podria servir usando DataSet
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com

[Marcelo Coelho Silva]

Ramón,
Primeiramente, obrigado por responder.
Os compotentes (TDbfDataSet) são inseridos no projeto pela IDE do
Xailer. ? Como faço para sobrecaregar (sobrecargar) la Classe TDbfDataSet ?
Obrigado,
Marcelo Coelho Silva
Brasil.
Em 16/07/2010 22:58, Ramón Zea escreveu:
> puedes sobrecargar la clase TDBFDataSet:
>
> Method AppendFrom( cDBF ) CLASS TDbfDataSet
> ::SaveState( .t. )
> ( ::cAlias )->( __dbApp( cDBF, { },,,,, .F., ) )
> ::RestoreState( .t. )
> Return ( Nil )
>
> Es mas detallado pero asi te podria servir usando DataSet
>
> Saludos.

[zeasoftware]

En algún .Prg que anexes a tu programa:
Class TDbfDataSet From xDbfDataSet
Method AppendFrom( cDBF )
EndClass
Method AppendFrom( cDBF ) CLASS TDbfDataSet
::SaveState( .t. )
( ::cAlias )->( __dbApp( cDBF, { },,,,, .F., ) )
::RestoreState( .t. )
Return ( Nil )
Esto lo que hace es anexar el método nuevo a la clase, y asi, en cualquier
parte del programa que lo requieras, y siendo un objeto TDBFDataSet podrás
usarlo.
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com