{$codepage utf8} {$mode objfpc} Uses sysutils, classes; Var ListaCadenas:TStringList; cad:UnicodeString; i:integer; Begin ListaCadenas:=TStringList.create; ListaCadenas.CommaText:='Uno=1,Dos=2,Tres=3'; Writeln('Mostrando las lista'); for cad in ListaCadenas do Writeln(cad); Writeln('Mostrando el valor de UNO'); Writeln(ListaCadenas.Values['Uno']); Writeln('Mostrando el valor de TRES'); Writeln(ListaCadenas.Values['TRES']); Writeln('Mostrando sólo los valores'); for i:=0 to ListaCadenas.Count-1 do Writeln(ListaCadenas.ValueFromIndex[i]); Writeln('Mostrando sólo los nombres o identificadores'); for i:=0 to ListaCadenas.Count-1 do Writeln(ListaCadenas.names[i]); End.