Discussion :

[Lorenzo77]

salut,


j'ai besoin pour une petite appli de test de faire une verification sur la valeur d'un champ de type Tedit ... la valeur ne doit comporter que des nombres de 0 a 99.
en PERL ca donne ca : '^[0-9]{1,2}$'

j'ai essayé la procedure MatchesMask() de la FAQ mais celle ci ne me parrait pas convenir pour ce type de masque (pas assez puissante ?).


vu que je connais parfaitement les regexp PERL, je pensais directement integrer cette bibliotheque mais comment faire ?
il n'y a pas d'infos sur la maniere de faire dans la FAQ : http://delphi.developpez.com/faq/?page=regex

est ce qu'il faut integrer dans chaque projet les fichiers "PCRE.pas", "pcre_dll.pas", "pcre.dll" ?
si oui, de qu'elle maniere ?
est ce qu'il est possible d'en faire un composant pour delphi afin de ne pas avoir toutes ces manips a refaire a chaque integration dans un projet ?

si vous aviez un document expliquant simplement l'affaire ?
ca serait genial vu que j'ai commencé la programmation en TurboPascal et delphi depuis hier seulement et j'ai legerement tendance a ramer gentillement ....
il m'a fallu un moment avant de comprendre qu'une assignation ce faisait par := et non = ...
d'ailleurs un grand merci pour la FAQ, elle est tres utile !


merci

[nihao]

une solution possible :

1 - dans projet -> importer une bibliothèque de types, choisir Microsoft VBScript Regular Expressions 5.5 par exemple et installer

2 - dans la palette des composants, sous ActiveX, il doit maintenant y avoir un composant RegExp.

3 - le mettre dans une form et écrire par exemple dans un évènement onclick d'un bouton :

Code :

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

1
2
3
4
5
6
7
 
var
    res : boolean;
begin
       regexp1.Pattern := '^[0-9]{1,2}$';
       res := regexp1.Test(edtext.Text); // edtext est un TEdit
end;

cordialement
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

[Lorenzo77]

merci pour cette reponse mais "VBScript Regular Expressions" ne m'interesse vraiment pas, beaucoup trop lente pour les gros traitements

j'ai essayé en suivant tes infos d'inserer la DLL pour les expressions regulieres PERL mais rien a faire, a chaque fois j'ai le message :
Ne peut charger la bibli. de types : Erreur lors du chargement de la bibli./DLL du type.


j'ai essayé de copier les fichiers : "PCRE.pas", "pcre_dll.pas", "pcre.dll" directement dans le repertoire du projet et ensuite de rajouter :
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Masks, pcre;

mais je me retrouve avec plein d'erreurs a la compilation dans le fichier "PCRE.pas" ... donc soit ca fonctionne mais les fichiers que j'ai recup ne sont pas du tout compatible avec la version 5 de delphi ou alors c'est pas du tout la bonne maniere de faire.

[nihao]

Sur cette page : http://www.renatomancuso.com/software/dpcre/dpcre.htm
j'ai téléchargé PCRE 6.1 dll

le code suivant fonctionne avec delphi 6 (je n'est pas 5) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses pcre;
 
var
   regexp : IRegex;
 
procedure TForm1.BTestClick(Sender: TObject);
var
    res : boolean;
begin
     regexp := regexcreate('^[0-9]{1,2}$');
     res := regexp.IsMatch(edtext.Text);
end;

la dll doit être accessible, donc, soit dans le même répertoire que le projet, soit sous windows\system32

cordialement

[Lorenzo77]

oui, j'avais bien telecharger cette version.


si je rajoute juste la DLL dans le repertoire du projet, j'ai l'erreur suivante a la compilation :
[Erreur fatale] Unit1.pas(7): Fichier non trouvé : 'pcre.dcu'

si je rajoute la DLL et les fichiers PAS dans le repertoire du projet, j'ai ces erreurs a la compilation :
[Erreur] PCRE.pas(1387): Identificateur non déclaré : 'PByte'
[Erreur] PCRE.pas(1408): Type pointer requis
[Erreur] PCRE.pas(1409): Type pointer requis
[Erreur] PCRE.pas(1976): Identificateur non déclaré : 'CaseSensitive'
[Erreur fatale] Unit1.pas(7): Ne peut compiler l'unité utilisée 'pcre.pas'


voici la ligne 1387 du fichier PCRE.pas (celle en gras) :
var
NameCount : Integer;
NameEntrySize : Integer;
Ptr : PByte;
Idx : Word;
i : Integer;


j'ai peur de ne pas avoir une version suffisante pour faire fonctionner la lib PERL ou alors .... je sais pas

[nihao]

effectivement, par rapport à delphi 5, les versions suivantes ont rajouté entre autres :

type PByte = ^Byte; c'est dans system.pas

et surtout la proprité CaseSensitive dans le composant TStringList. c'est dans classes.pas

Si tu pouvais passer en version 6 ou plus, ça t'éviterait d'avoir à bidouiller ces fichiers.

[Lorenzo77]

merci pour tout, c'est la merde

je vais essayer de me trouver une version + recente