Discussion :

[djeckelle]

Bonjour à tous ,

Il y a quelque temps j'ai demandé comment accroître la capacité de mon TricheEdit et j'ai eu la réponse très brillante de Lung

SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);

Ceci fonctionne très bien dans 95% des cas de mes fichiers.

Mais aujourd'hui j'ai des fichiers d'1,4 Mo qui contiennent environ 1500 lignes toutes similaires :

[:ZP:O:U:A:ZW:01]
_IM=6
_IP=A
_IV=0
_RU=USD

[NECES]
Q:Z:1:1:1:3P:01=Q ~ E ~ D
Q:Z:1:1:2:3P:01=Q ~ E ~ D
Q:Z:1:1:3:3P:01=Q ~ E ~ D
Q:Z:1:1:4:3P:01=Q ~ E ~ D
Q:Z:1:1:5:3P:01=Q ~ E ~ D
Q:Z:1:1:6:3P:01=Q ~ E ~ F

Mon richedit met presque 60 mn à se charger pour ces fichiers.

Par contre j'ai d'autres fichiers qui font plus de 10Mo et pour lequels je n'ai aucun soucis......

Avez vous une idée?


Bonne et heurese année à tous

[ShaiLeTroll]

Pense à Lines.BeginUpdate et Lines.EndUpdate ...
Comment les charges-tu ?
Le RichEdit est obligatoire ? Besoin de Formattage (Gras, Italique, ...)
Pourquoi pas un TMemo et essayer aussi d'agrandir sa capacité (32Mo normalement)

[djeckelle]

Salut,

J'ai besoin d'un TRichEdit car j'ai effectivement de la mise en forme de ligne.

Pour le chargement :
Mon fichier est récupéré via un service RPC sur un serveur Unix....je n'ai pas droit au ftp

J'ai donc une méthode qui appelle une DLL qui me permet d'appeller la fonction RPC du serveur, et qui charge le fichier dans une stringlist.

Ensuite pour charger mon fichier dans le RichEdit, j'ai une boucle qui parcours la stringlist ligne à ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
      redtFichier.clear;
      for icpt := 0 to lstFichier.Count - 1 do
      begin
        redtFichier.Lines.Append(lstFichier.Strings[icpt]);
        ggeProgression.Progress := icpt;
      end;

Il n'y a rien de bien sorcier, je ne pensais pas être bloqué pour si peu

[Gilbert Geyer]

Salut,

J'ai besoin d'un TRichEdit car j'ai effectivement de la mise en forme de ligne.
...
J'ai donc une méthode qui ... et qui charge le fichier dans une stringlist.

Ensuite pour charger mon fichier dans le RichEdit, j'ai une boucle qui parcours la stringlist ligne à ligne.

... si je comprends bien le "qui charge le fichier dans une stringlist" tu charges le PlainText du fichier avec tous ses paramètres de formattage rtf dans la StringList et ensuite t'as toute une usine à gaz pour décrypter le formattage et restituer la mise en forme de tes lignes.

Suggestion : charges le fichier dans un MemoryStream et ensuite remplaces l'usine à gaz en question par RichEdit1.Lines.LoadFromStream(monStream); cela devrait être plus rapide.

A+

[djeckelle]

…tu charges le PlainText du fichier avec tous ses paramètres de formatage rtf dans la StringList et ensuite t'as toute une usine à gaz pour décrypter le formatage et restituer la mise en forme de tes lignes.

Non, non, non rassure toi Gilbert je n'ai pas fait une usine à gaz comme ça.

Le fichier de base n'a pas de formatage, c'est un fichier de donnée, par contre une fois qu'il est affiché, l'utilisateur peut effectuer une recherche et les lignes correspondant sont affichées surlignées. On affiche également en rouge les lignes qui ne contiennent pas les bons champs.

Par contre j'ai appliqué Lines.BeginUpdate et Lines.EndUpdate je gagne un peu de temps mais ce n'est pas le summum...de 64 mn je passe à 35mn.

J'ai creusé un peu plus, mon fichier contient 142000 lignes, le richedit se charge ligne à ligne...c'est normal que ce soit un peu long, mais le plus étrange est que c'est très rapide au début et au fur et à mesure le temps de traitement d'une ligne ralenti beaucoup.

J'ai vu dans l'aide Delphi que l'on pouvait chargé un Stream ou un fichier...mais je n'ai pas de fichier physique pour alimenté le MemoryStream. Mon fichier est récupéré via une focntion d'une DLL dans un buffer (Widestring) à partir d'un serveur Unix. (Je ne peux pas changer ce processus, il m'est imposait).

[Gilbert Geyer]

Re-Salut,

Donc la lenteur du chargement ne provient pas de la mise en forme puisque celle-ci est déclenchée par l'utilisateur.

J'ai creusé un peu plus, mon fichier contient 142000 lignes, le richedit se charge ligne à ligne...c'est normal que ce soit un peu long, mais le plus étrange est que c'est très rapide au début et au fur et à mesure le temps de traitement d'une ligne ralenti beaucoup.

... c'est normal car avec du Update et du redtFichier.Lines.Append(lstFichier.Strings[icpt]); dans une boucle cela raffraîchit l'affichage à chaque tour de boucle et plus on ajoute des lignes à la fin du RichEdit plus ça ralentit.
C'est comme si tu demandais à un coursier de poser une pierre de plus à la fin d'une ligne droite formée par une série de pierres qui s'allonge chaque fois que tu lui demandes de recommencer : la durée du trajet s'allonge chaque fois !
En plus ta boucle est aussi ralentie à chaque tour de boucle par le raffraichissement d'un progressBar (vu le ggeProgression.Progress := icpt; )


Essaye donc de remplacer ta boucle par une assignation en une seule ligne avec redtFichier.Lines.Assign(lstFichier);
... j'avais remarqué qu'avec assign le chargement d'un RichEdit est plus rapide qu'avec Add et qu'avec Append.

A+