Discussion :

[xenos]

Bonjour,

Je travaille sous Delphi 2006 Win32.

Je réceptionne une chaine de caractère avec des virgules. Je les rajoute sans problème à la TListBox.

Cette importation de chaine avec des virgules est une boucle. Donc en moyenne toutes les 3 secondes il importe une nouveau groupe de mots à rajouter les uns après les autres dans le TListBox.

Le problème est qu'à chaque fois que l'on arrive à un nouveau groupe, il supprime les informations enregistrées précédemment.

Actuellement, mon code est le suivant :

Code :

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

ListBox1.Items.CommaText := Extract(memo1.Text);

Et j'aimerais rajouter quelque chose du genre, pour que d'une boucle à l'autre les informations se rajoutent et ne se remplacent pas :

Code :

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

ListBox1.Items.Add(Extract(memo1.Text));

En résumé : Comment puis je coupler ces deux fonctions : CommaText et Add ?

D'avance merci pour vos réponses.



xenos

[Cl@udius]

Salut

Extract est une fonction de ton cru ?
Ce n'est pas la méthode de l'objet TList ?

@+

[xenos]

Extract n'est pas une méthode de l'objet TList.

Je peux donc sans problème changer le nom de cette fonction.

[Cl@udius]

Re,

Si comme je l'imagine ta fonction Extract te renvoie un TStringList, dans ce cas c'est assez simple:

Code :

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

1
2
 
  ListBox1.Items.AddStrings(Extract(Memo1.Text));

@+

[xenos]

La fonction renvoie un String :

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
function Extract(const AInputString : string) : string;
const
  EmailRE = '[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+';
 
var
  r : TRegExpr;
 
begin
  Result := '';
  r := TRegExpr.Create;
 
  try
    r.Expression := EmailRE;
 
    if r.Exec (AInputString) then
      Repeat
        Result := Result + r.Match [0] + ',';
      Until not r.ExecNext;
    finally r.Free;
  end;
end;

[Cl@udius]

Re,

Le plus simple est d'envoyer directement l'extraction de tes adresses sur la ListBox. La fonction Extract devient la procédure suivante:

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
 
procedure ExtractToListBox(ListBox: TListBox; const AInputString : string);
const
  EmailRE = '[_a-zA-Z\d\-\.]+@[_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+';
 
var
  r : TRegExpr;
 
begin
  Result := '';
  r := TRegExpr.Create;
 
  try
    r.Expression := EmailRE;
 
    if r.Exec (AInputString) then
      Repeat
        ListBox.Items.Add(r.Match[0]);
      Until not r.ExecNext;
    finally r.Free;
  end;
end;

@+ Claudius