Discussion :

[Annaced]

Bonjour et bonne année.

J'ai une programme qui analyse des fichiers binaires et renvoie au fur et à mesure le resulat (compréhensible en mode texte) au travers d'un TRichEdit.
J'utilise un TRichEdit pour le formatage (Gras, couleur etc..).
Mon code pour ajouter les lignes est basic

Code :

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

1
2
 
monRichEdit.lines.add('Ma ligne');

J'ai fais un petit test de rapidité

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
 
procedure Tfmain.Button4Click(Sender: TObject);
var i : integer;
 debut : tdatetime;
     AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond : word;
begin
    monRichEdit.Clear;
     debut := now;
    for i:=1 to 3000 do
    begin
        monRichEdit.SelAttributes.Style := [fsbold];
        monRichEdit.Lines.Add(inttostr(i)+'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -');
        monRichEdit.Lines.Add('Essai d ajout d une ligne dans le memo  ');
    end;
 
    decodedatetime((now-debut),AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond);
    Label_duree_parsing.Caption :='Durée traitement : '+ format('%2d',[(AHour)])+'h'+inttostr(AMinute)+'mn'+inttostr(ASecond)+'s'+
   inttostr(AMilliSecond)+'ms';
end;

Les résultats sont étonnants :
pour 1500 boucles : 2s200ms environ
pour 3000 boucles : 6s100 environ

Tout celà est très long et deux questions :
- Comment améliorer la performance (car finalement mon prog met plus de temps à afficher le resultats qu'a faire l'analyse)
- pourquoi c'est pas linaire (3000 boucles devrait être 2 fois plus lent que 1500) ?
Merci.

[Gilbert Geyer]

Salut,

Tu trouveras la réponse pour la lenteur, ainsi que le code d'une astuce pour le speed ici : http://www.developpez.net/forums/sho...d.php?t=467303

pourquoi c'est pas linaire

... parceque avec Add Delphi est obligé à chaque tour de boucle d'ajouter la nouvelle chaîne à la fin de la liste dont la longueur augmente elle-aussi à chaque tour de boucle.

A+

[Annaced]

Merci pour la reponse rapide.
Affectivement, en terme de performance, c'est bien plus rapide de "tracer" d'abord dans la Stringlist.
Mais j'ai quand même un gros pb, le formatage que j'avais (gras, souligné, couleur) est perdu.
Si vous avez d'autres astuces/méthodes ?
Merci.

[Gilbert Geyer]

Salut,

Affectivement, en terme de performance, c'est bien plus rapide de "tracer" d'abord dans la Stringlist.

... Dans la discussion vers laquelle je t'ai renvoyé, il se trouve que le demandeur est obligé de passer par une StringList.

Mais j'ai quand même un gros pb, le formatage que j'avais (gras, souligné, couleur) est perdu. Si vous avez d'autres astuces/méthodes ?

... il y a d'autres astuces mais pour en dire plus faudrait en savoir plus à propos de ton besoin car à voir le code de ta procedure Tfmain.Button4Click(); tu fais 3000 fois monRichEdit.SelAttributes.Style := [fsbold] ce qui signifie que tu veux mettre la totalité du RichEdit en gras ... ce qui peut se faire d'un seul coup après avoir chargé la totalité du texte dans le RichEdit avec pour cette mise en gras:

Code :

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

1
2
MonRichEdit.SelectAll;
monRichEdit.SelAttributes.Style := [fsbold];

... Donc pour avancer faudrait qu'on en sache davantage sur ton besoin de formatage pour voir s'il ne serait pas possible de charger rapidement ton texte brut dans le RichEdit et d'effectuer le formattage après chargement car si ton besoin de formattage se résolvait auparavent avec des Add, vu ton code, cela signifie que le formattage s'appliquait à toutes ou seulement certaines lignes ayant telle ou telles caractérisqtique(s) (lesquelles ?).

Autre exemple si ton texte formatté est toujours le même tu peux le créer par exemple avec Word même avec des indices et des exposants, le sauver au format *.rtf et le charger d'un seul coup avec :

Code :

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

monRichEdit.lines.LoadFromStream(monFileStream);

A+

[Annaced]

Bonjour,

Le code donné en exemple était pour illustrer le pb que je rencontrais.
Mon formatage de texte depends bien sur de l'anaylse des données que je reçois.
J'ai un client qui recoit des données (binaires) d'un serveur au fils de l'eau via une socket en mode connecté (TCP/IP).
Ces données sont parcées par le client et affiche dans un TRichEdit les plus 'importante' en mode text.
Pour facilité l'analyse des données reçus par un utilisateurs, j'ai une mise en page avec des lignes en carateres gras, d'autres en souligné, d'autres en couleurs etc..
D'ou mon besoin de formatage de texte pour facilité la lecture et dégager les elements essentiels.
Merci.

[Gilbert Geyer]

Re-Bonjour,

J'ai un client ... Pour facilité l'analyse des données reçus par un utilisateurs, j'ai une mise en page avec des lignes en carateres gras, d'autres en souligné, d'autres en couleurs etc..
D'ou mon besoin de formatage de texte pour facilité la lecture et dégager les elements essentiels.

... donc je suppose que ce n'est pas ton client qui t'envoie du texte formatté mais qu'il t'a donné les caractéristiques ou critères à respecter pour mettre telle ligne en gras et telle autre en souligné etc, et dans ce cas sont ces critères qu'il faut examiner pour voir comment on peut les appliquer au texte après avoir chargé rapidement le texte brut dans le RichEdit : c'est quoi ces caractéristiques ou critères ? La présence de tel ou tel mot dans la ligne (mot pouvant être une référence d'article, une chaîne numérique, un code, etc) ?

A+

EDIT du 07/01/2008 - 12h40: En bref l'idée de base pour accélérer le chargement du texte et son affichage dans le RichEdit est de ne pas réaliser son formattage lors de ce chargement ce qui nécessite d'effectuer ce formattage avant où immédiatement après ce chargement. Et la deuxième idée qui accélère bigrement le chargement est de transférer le texte au préalable dans un Stream vu que le chargement d'un RichEdit avec LoadFromStream est ce qui est le plus rapide.
Et pour transférer le texte-donné dans un Stream faudrait savoir si ce texte arrive sous la forme d'un fichier, d'une StringList, d'un array of string, ou plus simplement sous forme d'une chaine-longue subdivisée par une série de #13#10 car le code de transfert sera légèrement différent selon le cas.

A+

[Annaced]

Re,
Merci pour les reponses et désolé pour la longue période de silence.
Effectivement, certains mots, ou suites de mots se retrouve lors d'un formatage particulier.
La question est, comment formater mon texte dans le richEdit :
- Après le "vidage" du Mermorysteam dans le richedit comment ? est-ce rapide ?
- Avant le vidage ? est-ce possible ?
Merci.

[Gilbert Geyer]

Salut,

1) A propos de :

Effectivement, certains mots, ou suites de mots se retrouve lors d'un formatage particulier.
La question est, comment formater mon texte dans le richEdit :
- Après le "vidage" du Mermorysteam dans le richedit comment ?

Par exemple avec :

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
23
24
25
26
27
28
 
procedure illuMots( Mot : string; coul : tColor; Styl: TFontStyles; var red : tRichEdit);
//@param Mot  = mot ou bout de phrase à formatter dans le RichEdit 'red'
//@param coul = couleur à passer à 'mot'
//@param styl = gras, italic, ou souligné à passer à 'mot'
//@param red  = RichEdit-cible
var       FoundAt: LongInt;
          StartPos, ToEnd: Integer;
begin     with red do
          begin // commence la recherche après la sélection en cours s'il y en a une
                //  sinon, commence au début du texte
                if SelLength <> 0 then StartPos := SelStart + SelLength
                                  else StartPos := 0;
                // ToEnd indique la longueur entre StartPos et la fin du texte du contrôle
                ToEnd:=Length(Text) - StartPos;
                FoundAt:=FindText(mot, StartPos, ToEnd, [stMatchCase]);
                while FoundAt <> -1 do
                begin SetFocus;
                      SelStart := FoundAt;
                      SelLength := Length(mot);
                      SelAttributes.color:=coul;
                      SelAttributes.Style:=Styl;
                      SelLength:=0;
                      StartPos:=SelStart+Length(mot);
                      FoundAt:=FindText(mot, StartPos, ToEnd, [stMatchCase]);
                end;
          end;
end; // illuMots

... avec par exemple la ligne illuMots( 'Tagada', clRed, [fsBold], RichEdit1);
ce code passe en rouge-gras tous les mots ou sous-mots qui contiennent 'Tagada' : c'est suffisant pour attirer l'oeil de l'utilisateur.

2) A propos de "est-ce rapide ?" : Tout dépend de ce que tu entends par "rapide" mais s'il y a seulement 3000 boucles comme signalé au début c'est relativement rapide : suffit de chronométer.

3) A propos de "- Avant le vidage ? est-ce possible ?" : Oui-MAIS bigrement plus compliqué : cela nécessiterait de transformer le MemoryStream qui à l'arrivée est du texte brut en un MemoryStream dans lequel on insèrerait tout le charbia de formattage caractéristique du format RTF pour pouvoir faire un LoadFromStream dans le RichEdit d'un seul coup avec son formattage.

A+

[Annaced]

Merci beaucoup pour l'aide.
A trés bientôt.