.CommaText et .Add

Version imprimable

17/06/2007, 23h50
xenos

.CommaText et .Add

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:

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:

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
18/06/2007, 08h20
Cl@udius

Salut

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

@+
18/06/2007, 08h26
xenos

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

Je peux donc sans problème changer le nom de cette fonction.
18/06/2007, 08h28
Cl@udius
Re,

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

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

La fonction renvoie un String :

Code:

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;

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:

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

18/06/2007, 08h55
xenos

Merci pour ton aide Cl@udius !

Tout fonctionne parfaitement bien ! :D

Bon développement à tous ! ;)

xenos