TStrings.AddStrings
| TStrings = class (TObject) | Interface de TStrings | Exemples de TStrings |
Ajoute les éléments d'une autre TStrings
Syntaxe
procedure AddStrings(strings: TStrings)
procedure AddStrings(strings: TStringArray) (Qubes 6.2)
procedure AddStrings(val: TStringArray) (Qubes 7.0)
strings : chaînes à ajouter
Remarques
Les éléments de strings sont ajoutés à la fin de la TStrings si Sorted vaut False, ils sont insérés en position triée sinon.
Exemples
var liste1 := TStrings.Create;
var liste2 := TStrings.Create;
liste1.CommaText := 'paul,jacques';
liste2.CommaText := 'pierre,jean';
liste1.AddStrings(liste2);
InformationDlg(liste1.Commatext); // Affiche 'paul,jacques,pierre,jean'
var liste2 := TStrings.Create;
liste1.CommaText := 'paul,jacques';
liste2.CommaText := 'pierre,jean';
liste1.AddStrings(liste2);
InformationDlg(liste1.Commatext); // Affiche 'paul,jacques,pierre,jean'