gabs77
Messages postés379Date d'inscriptionmardi 6 décembre 2005StatutMembreDernière intervention 8 octobre 2008 3 janv. 2007 à 12:27
salut
tu peux utiliser la fonction commatext de la stringlist
En utilisantCommaText,toute chaîne de la liste contenant des espaces,des virgules ou des apostrophes seront séparés
WhiteHippo
Messages postés1154Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention 5 avril 20123 3 janv. 2007 à 13:26
Bonjour,
En effet comme l'a dit gabs77 tu peux utiliser CommaText ou même directement Text. Les deux méthodes sont identiques. Voici un petit exemple d'utilisation, dans le cas où les éléments à insérer dans la stringlist font parties d'un tableau :
procedure AddMultiMethode1( SL : TStringList ; const Elements : array of string ) ;
const
CRLF = #13#10 ;
var
S : string ;
i : integer ;
begin
S := '';
for i := 0 to Length(Elements)-1 do
begin
S := S + Elements[i] + CRLF ;
end ;
SL.Text : = S ;
end;
procedure AddMultiMethode2( SL : TStringList ; const Elements : array of string ) ;
const
SEPARATEUR = ',' ;
var
S : string ;
i : integer ;
begin
S := '';
for i := 0 to Length(Elements)-1 do
begin
if ( i>0 ) then S := S + SEPARATEUR ;
S := S + Elements[i] ;
end ;
SL.CommaText : = S ;
end;