Partir Archivos

[jorge_mosquera]

Delphi 7 Enterprise

Tengo un archivo plano bastante grande, y necesito partirlo en trozos mas pequeños para hacerlo mas manejable, y poder procesarlos de manera individual.

Intente con un procedimiento que utiliza BLOCKREAD y BLOCKWRITE, pero tengo un problema.

Si el registro es este

1,EPS028,CC,38471049,SALAZAR,CARDONA
2,EPS028,CC,29897965,MARTINEZ,DE
3,EPS028,RC,31600888,GARCIA,OSPINA
4,EPS028,CC,9990036,HERRERA,ROBLEDO

Si por ejemplo quiero partirlo en nuevos archivos de 2 registros cada uno, obtengo

1,EPS028,CC,38471049,SALAZAR,CARDONA
2,EPS028,CC,29897

Es decir, algunos registros quedan incompletos.

El archivo pude traer cualquier cantidad de campos (separados por comas), y generalmente son muy grandes (> 50 MB).

Como puedo hacer para partir una cantidad especifica de registros, pero con la tranquilidad de que estos queden completos?

Muchas gracias