duda con tstringlist

[tutuk]

hola tengo un problema

tengo que procesar un archivo de texto delimitado por ":" todo bien
al archivo lo cargo a una tstringlist y lo voy trabajando eliminando las lineas y caracteres que no me sirven

hasta ahi, mi maquina sempron 2.2, 256 MB ran , winxp todo va bien.

pero cuando lo instalo en la maquina de mi cliente, duron 1.8 - 128 MB W98
al archivo no lo carga completo, es decir el archivo tiene mas o menos 3000 lineas, en mi maquina lo carga completo y en la otra solo llega mas o menos hasta la 1400.

Puede esto tratarse de un problema de memoria o de configuracion de windows( archivos Config.sys u otro)

a alguien le paso esto antes?

[marcoszorrilla]

Pues por lo que parece es un problema de memoria, prueba con 800 líneas por ejemplo, si funciona sin problemas se confirmaría el problema de memoria.

Dependiendo lo que quieres hacer con el archivo también lo puedes leer con funciones del API una línea cada vez procesarlo y seguir.

Un Saludo.

[tutuk]

gracias por la antencion

como seria mas o menos leer un archivo con funciones API ?

siempre lo hice con el tstringlist

[marcoszorrilla]

Un pequeño ejemplo:

Procedure Importar_Concurso();
var
Fconcurso:TextFile;
cRegistro:String;
cBuscar :String;
Ic:Concurso;

lAppend:Boolean;
begin
lImportar:=True;
lAppend:=False;
cCamino:=DmPal.ConfExportUnidad.Value+'\Concurso.Txt';


AssignFile(Fconcurso,cCamino);
Reset(Fconcurso);
Readln(Fconcurso, cRegistro);

CloseFile(Fconcurso);
Ic.Codigo :=Copy(cRegistro,01,04);
.........


Un Saludo.