Error en MemDataset?

[Israel Solis]

Compañeros:
He modificado el ejemplo Xailer2SamplesDataControlsMemDataSet
Para mostrar un detalle en la clase MemDataSet...
Solo sustituyan el PRG anexo en el ejemplo de Xailer y compilen
- He incluido el evento OnPostEdit al Browse para que me muestre en el Debuger la suma de la columna Length (recorre el memDataSet desde :GoTop() hasta !:Eof())
Para explicarme mejor:
1.- Presiona el botón "append"
2.- Escribe cualquier nombre de archivo y en LENGTH escribe, por ejemplo: 2 (número dos)
3.- En el Label que agregué muestra la suma que realizo en el evento OnPostEdit
Como podrás ver en las imágenes que anexo:
**Arroja como resultado "20" porque solo incrementa 10 veces el 2 que se acaba de agregar, es decir, no recorre adecuadamente cada registro dl MemDataSet.
** Si editas cualquier renglón, entra de nuevo el OnPostEdit ya ahora SI arroja el dato correcto.
Espero haberme explicado
Saludos!!
Israel

Attached files MemDataSet.zip (53.1 KB)Â

[ignacio]

Israel,
El en evento OnPostEdit el alta no está realmente hecha. Hay dos formas de solucionarlo:
1) Enviese un PostMsg WM_XAILER y allí­ realice el cálculo
2) Evite el sistema de AutoSave automático del browse y hagase usted completamente la operación de salvado en el evento OnPostEdit
Saludos

[Israel Solis]

Gracias Ignacio
He cambiado DbBrowse/MemDataSet por ArrayBrowse/Array y ha funcionado mejor según tus recomendaciones
Saludos!!