Cita:
Empezado por jlrbotella
1) Para leer un fichero tan grande no uses el componente tmemo. Puedes usar:
Código:
var f : TextFile;
lineaactual : string;
begin
AssignFile('c:\test.txt', f);
try
Append(f);
while not Eof do begin
Readln(f, lineaactual); //creo que es así, busca en la ayuda de Delphi para asegurarte
//aqui haces lo que quieras con lineaactual
end;
finally
Closefile(f);
end;
end;
2º He visto un sleep(1). Tienes que eliminarlo.
|
Me parece perfecto.
Además también quitaría el application.processmessages o que solamente lo hiciera cada ¿1000? registros.
Código Delphi
[-]if contador mod 100 then application.processmessages
Otra cosa, me ha parecido que lees a un clientdataset y luego sus valores lo pasas como parámetros a un stored procedure, ¿por qué no lo haces directamente?