Discussion :

[Roland Chastain]

Bonjour !

Compilé avec XE2, le simple programme TestRegularExpressions contenu dans cette archive s'exécute avec succès. Compilé avec XE10 Delphi 10, il cesse de fonctionner après quelques secondes, sans avoir produit aucun résultat.

Auriez-vous une idée de ce que c'est ?

[Roland Chastain]

J'ai fait un rapport à Embarcadero :

https://quality.embarcadero.com/browse/RSP-12442

[SergioMaster]

Bonjour,

j'ai repris ton exemple mais avec un dfm plutôt qu'en application console et là en mode debug il me sort un problème de mémoire
j'ai donc réduit ton fichier 1.txt à quelques lignes et c'est nickel (même ton application)

cela sent (pue) donc le débordement de mémoire mais de là en conclure un bug

[Roland Chastain]

Bonjour,

j'ai repris ton exemple mais avec un dfm plutôt qu'en application console et là en mode debug il me sort un problème de mémoire
j'ai donc réduit ton fichier 1.txt à quelques lignes et c'est nickel (même ton application)

Merci pour ton essai. Tes observations rejoignent celles que j'ai pu faire.

cela sent (pue) donc le débordement de mémoire mais de là en conclure un bug

Si je te comprends bien, ça veut dire que mon programme ferait ferait un usage excessif ou inapdapté des fonctions de l'unité, qui provoquerait un débordement quelque part ? Ce qui est quand même étonnant, c'est qu'avec XE2 le programme est peut-être un peu lent mais vient quand même à bout de son travail.

Maintenant, pour le programme lui-même, c'est vrai qu'il est peut-être mal écrit, et qu'il vaudrait mieux passer par une itération que par une collection.

[Roland Chastain]

Une variante du programme de test, basée sur la fonction NextMatch.

Cette fois, le programme compilé avec XE10 s'exécute, en 70 secondes contre... 4 secondes pour le programme compilé avec XE2 !

[Roland Chastain]

Même en améliorant l'expression, le temps d'exécution reste à peu près le même.

Code :

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

1
2
3
  PATTERN = '^([A-Z]:\\)([\w\s\\\.-]+)(\\\w+\.\w+)$';
 
  expr := TRegEx.Create(PATTERN, [roMultiline]);