Discussion :

[Siguillaume]

Bonjour à tous. Je veux mettre en place une fonction qui me permettrait d'obtenir un nombre donné de mots dans une chaîne de caractères chaine. Dans chaine, les mots à ressortir sont séparés du caractère sep.
Voici la structure de la fonction:extraireMots(chaine : string; sep :Char='#';nmots:integer=1):TStrings;
nmots, désigne le nombre de mots:
Par exemple, si je fais:
extraireMots('Bonjour#tues#heureux','#',3), j'obtienne les mots: Bonjour, tues et heureux.

Et si je fais:
extraireMots('Bonjour#tues#heureux','#',2), j'obtienne les deux mots: Bonjour et tues#heureux..

Voici le code que j'ai écrit, en m'inspirant de ce qui est sur la FAQ:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
function extraireMots(chaine : string; sep :Char='#';nmots:integer=1):TStrings;
var
  i, n,nbremots : integer; 
  currentWord : string;
  into:TStrings; 
begin
  into.Clear;
  n := length(chaine);
  i := 1;
  nbremots:=0;
 
  while ((i <= n) and (nbremots<nmots)) do 
  begin 
    currentWord := ''; 
    { on saute les séparateurs  }
    while (i <= n) and (chaine[i] = sep) do
      inc(i);
    { récupération du mot courant  }
    while (i <= n) and not (chaine[i] = sep) do
    begin
      currentWord := currentWord + chaine[i];
      inc(i); 
    end; 
    if (currentWord <> '') then
      begin
       into.Add(currentWord);
       nbremots:=nbremots+1;
      end;  
  end;
  if nbremots=nmots then  //On va recuperer le reste de la chaine pour former le dernier mot
   begin
    currentWord:='';
    while (i<=n) do
     begin
      currentWord:=currentWord+chaine[i];
      inc(i);
     end;
    into.Add(currentWord);
   end;
   Result:=into;
end;

Pour la compilation, pas de problème. MAis dans l'execution, il me donne l'erreur: .... 'Access Violation at 004B...'.
Et il pointe sur into.clear. Quand je mets celui-ci en commentaire, c'est toujours la même erreur sur cette fois-ci: into.Add(currentWOrd).

Je sais pas vraiment ce qui ne va pas.
Merci à tous de votre aide!

[Aka Guymelef]

Bonjour,

et bien c'est assez simple en fait, tu n'instancies pas ton objet into donc à chaque fois que tu veux y faire référence tu obtiendras une violation d'accès.

Il te faut donc instancier ton objet mais là je te vois déjà revenir avec une autre erreur :

Code :

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

into := TStrings.Create;

Impossible car TStrings est une classe abstraite. Effectivement TStrings est une classe abstraite il faut utiliser un de ses descendants, le plus généralement TStringList :

Code :

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

into := TStringList.Create;

Enfin si into ne sert que de variable temporaire pour être renvoyée ensuite via Result, autant utiliser Result directement. Ne pas oublier de détruire la liste après utilisation par la méthode appelant ta fonction.

[Siguillaume]

Merci, et tout semble bien fonctionner.
Une autre préoccupation est:

Ne pas oublier de détruire la liste après utilisation par la méthode appelant ta fonction.

C'est-à-dire?
Si j'appele ma fonction dans une procedure, je fais into.destroy?, ce qui me semble incorrect. Ou je le fais dans la fonction?

[ShaiLeTroll]

Il est vrai que faire cette fonction c'est très interessant, mais si tu veux, j'ai fait un explode, a vu de nez, elle devrait être 100 fois plus rapide

Surtout pas Destroy mais Free !

Code :

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

1
2
3
4
5
6
with extraireMots('Bonjour#tues#heureux','#',3) do
try
  ... traiter liste
finally
  Free();
end;

Il vaut mieux passer la liste en paramètre déjà créé que faire un retour de fonction, ...

[Siguillaume]

Ok. J'ai vu tes fonctions. Et, elles ont l'air très optimal et plus rapide que la mienne. Seulement, je voudrais savoir laquelle peut resoudre mon problème? (Ce lle plus proche de la mienne, en termes de fonctionnalités).

Il vaut mieux passer la liste en paramètre déjà créé que faire un retour de fonction, ...

J'essaie d'adapter. Dans ce cas, il serait peut être mieux de faire une procedure. N'est ce pas?

[Aka Guymelef]

J'essaie d'adapter. Dans ce cas, il serait peut être mieux de faire une procedure. N'est ce pas?

Oui dans ce cas le prototype de ta procédure serait :

Code :

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

procedure extraireMots(chaine : string; var Mots: TStrings; sep :Char='#';nmots:integer=1);

[SergioMaster]

cela me rappelle une fonction que j'utilise beaucoup :
ExtractWord et consort se trouvant dans jvStrUtils de la JVCL

Y jeter un coup d'oeil ne fera pas de mal

[Siguillaume]

jvStrUtils de la JVCL

Voici des termes tous nouveaux pour moi
Peux-tu me dire où les trouver?

[Siguillaume]

Oui dans ce cas le prototype de ta procédure serait :

Code :

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

procedure extraireMots(chaine : string; var Mots: TStrings; sep :Char='#';nmots:integer=1);

Peux-tu me donner un exemple d'utilisation? le var, venu s'ajouter me "remue un peu".

[Aka Guymelef]

JVCL = Jedi VCL, c'est une librairie de composants et autres permettant de faire beaucoup de choses. Regardes la section téléchargement de Delphi pour plus de détail.

Pour ce qui est du var, j'espère que tu as entendu parler du passage de paramètres pour valeur ou par référence. Le var ici sert à indiquer que le paramètre est passé par référence soit, sémantiquement, que l'objet va être modifié à l'intérieur de la fonction.

Comme exemple d'utilisation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  maListe: TStrings;
begin
  maListe := TStringList.Create;
  try
    extraireMots( 'toto est à la piscine', maListe, ' ', 5 );
    // faire quelque chose avec maListe
 
  finally
    maListe.Free
  end;
 
end;

[ShaiLeTroll]

le var ne sert à rien, c'est un objet qui l'on manipule donc pas besoin de var (un objet c'est déjà un pointeur, c'est ce pointeur qui subi la directive var et non pas son contenu ... )

le var est nécessaire si l'on doit effectuer une ré-instanciation\libération+nil (la fonction FreeAndNil par exemple utilise var à juste titre), dans d'autre cas, cela démontre une absence complète de compréhension des objets en delphi ...

JVL ICI

[Siguillaume]

Ok. Merci beaucoup. Tout y est à présent et fonctionne très bien.

Merci à tous pour vos contributions!

Je crois qu'en attendant d'autres eclaircissements, sur les propositions de SergioMaster, je peux marquer le post .

[Aka Guymelef]

le var est nécessaire si l'on doit effectuer une ré-instanciation\libération+nil (la fonction FreeAndNil par exemple utilise var à juste titre), dans d'autre cas, cela démontre une absence complète de compréhension des objets en delphi ...

Mouerf je sais bien que les objets (en Delphi tout du moins) ne sont pas soumis aux mêmes règles concernant le passage par valeur ou par référence.

Néanmoins j'aime bien positionner le var même sans l'utiliser réellement juste pour indiquer que l'objet sera bel et bien modifié à l'intérieur de ma fonction plutôt que de ne pas avoir de spécificateurs et d'être dans l'état "ptêtre ben que oui, ptêtre ben que non", c'est une approche purement sémantique de la chose.

[ShaiLeTroll]

t'intquiète, je l'ai fait aussi à mes débuts , et c'est il n'y a pas si longtemps ...
Je préfère documenter mes fonctions avec un cartouche pour juste éviter les détournements syntaxiques ...

[Aka Guymelef]

C'est vrai que la documentation est également là pour ça bien qu'en Delphi 7 avec l'auto-complétion on a pas de texte d'aide par contre on peut voir le var donc ça permet de parler directement.

Néanmoins je sais que maintenant dans VS il est possible d'ajouter les commentaires de telles sortes qu'ils soient visibles également dans l'auto-complétion et c'est peut-être déjà le cas aussi avec les dernières version de Delphi qui sait ?

En outre je dirais aussi que c'est une "sale" manie également qui doit venir du temps de mes études où avec le C++, le passage par référence est obligatoire si l'on ne voulait pas dupliquer l'objet lors d'un passage par valeur.

[SergioMaster]

Je crois qu'en attendant d'autres eclaircissements, sur les propositions de SergioMaster.

Désolé d'avoir été si "lapidaire" . Comme l'a dit Aka Guymelef ou ShaiLeTroll , JVCL est un ensemble de composant freeware que j'utilise beaucoup . Il contient également plusieurs unités de fonctions dont jvstrutils (repertoire archive) que j'ai cité .

dans cette dernière se trouve

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
function WordCount(const S: string; const WordDelims: TCharSet): Integer;
{ WordCount given a set of word delimiters, returns number of words in S. }
function WordPosition(const N: Integer; const S: string;
  const WordDelims: TCharSet): Integer;
{ Given a set of word delimiters, returns start position of N'th word in S. }
function ExtractWord(N: Integer; const S: string;
  const WordDelims: TCharSet): string;
function ExtractWordPos(N: Integer; const S: string;
  const WordDelims: TCharSet; var Pos: Integer): string;
function ExtractDelimited(N: Integer; const S: string;
  const Delims: TCharSet): string;
{ ExtractWord, ExtractWordPos and ExtractDelimited given a set of word
  delimiters, return the N'th word in S. }
function ExtractSubstr(const S: string; var Pos: Integer;
  const Delims: TCharSet): string;
{ ExtractSubstr given a set of word delimiters, returns the substring from S,
  that started from position Pos. }
function IsWordPresent(const W, S: string; const WordDelims: TCharSet): Boolean;
{ IsWordPresent given a set of word delimiters, returns True if word W is
  present in string S. }

qui corresponde + ou - à ce que tu tentes de faire

[Siguillaume]

J'y vois plus clair
Et là, je vois que les resultats que j'attends de ma procedure sont les mêmes que ceux retournés par la fonction ExtractWord, comme tu l'avais dit plus haut.

Mais, j'ai encore une autre question. Vu que cette librairie n'est pas intégré à Delphi, est ce qu'il n'y aurait pas de problème d'éxécution sur une machine où Delphi n'est pas installé?