Lire un fichier texte rapidement
Bonjour,
Alors la question est simple :
Y a-t-il plus rapide pour extraire un fichier texte complet dans un tableau que la fonction suivante sachant que celle-ci mets a peu pres 30 seconde pour extraire les 20.000 ligne de mon fichier (a peu pres 150 caractere par lignes).
Sachant que le type tableuaInfiniDeString = array of string;
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| function extraireFichier(leFichier : String):tableauInfiniDeString;
var
F : TextFile;
tableauTemporaire : tableauInfiniDeString;
i : integer;
chaine:string;
begin
i:=0;
AssignFile(F,leFichier);
reset(F);
setLength(tableauTemporaire,0);
while not(eof(F)) do
begin
setLength(tableauTemporaire,length(tableauTemporaire)+1);
readln(F,chaine);
tableauTemporaire[i]:=chaine;
inc(i);
application.ProcessMessages;
end;
CloseFile(F);
extraireFichier:=tableauTemporaire;
end; |
