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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Partager