TStrings - Exemples

var lst := TStrings.Create;

// On charge une liste depuis une CommaText
lst.CommaText:='Item1,"Item 2","Item ""3"""';

// On ajoute élément à la liste
lst.Add('Item "4"');

// On parcourt la liste pour remplacer chaque élément par sa traduction
var i : Integer;
for i:=0 to lst.Count-1 do begin
   lst[i]:=TranslateString(lst[i]);
end;

// On met tous les éléments en majuscules
lst.UpperCase;

// On trie la liste résultante par ordre alphabétique
lst.Sort;

// On affiche la liste résultante
PrintLn(lst.text);

// On purge la liste
lst.Clear;

// On ajoute des éléments sous la forme nom=valeur
lst.Values['TEST1']:='toto';
lst.Values['TEST1']:='titi'; // on rédéfinit un élément existant
lst.Values['TEST2']:='tata';

// On affiche un élément en particulier
PrintLn(lst.Values['TEST1']);