{$codepage utf8} {$mode objfpc} Uses sysutils, classes {$ifdef Linux},cwstring{$endif}; Var ListaCadenas:TStringList; Begin ListaCadenas:=TStringList.create; //Por defecto. //QuoteChar es una doble comilla y //Delimiter es la coma. ListaCadenas.DelimitedText:='"Blanco ""Blanco""","El zorro, se escapó"'; Writeln('Mostrando la lista'); Writeln('ListaCadenas.QuoteChar=',ListaCadenas.QuoteChar); Writeln('ListaCadenas.Delimiter=',ListaCadenas.Delimiter); Writeln(ListaCadenas.Text); ListaCadenas.QuoteChar:='|'; ListaCadenas.Delimiter:='*'; ListaCadenas.DelimitedText:='|Blanco "Blanco" |*|El zorro, se escapó|'; Writeln('ListaCadenas.QuoteChar=',ListaCadenas.QuoteChar); Writeln('ListaCadenas.Delimiter=',ListaCadenas.Delimiter); Writeln(ListaCadenas.Text); ListaCadenas.QuoteChar:='|'; ListaCadenas.Delimiter:=#10; ListaCadenas.DelimitedText:='|Blanco "Blanco" |'+#10+'|El zorro, se escapó|'; Writeln('ListaCadenas.QuoteChar=',ListaCadenas.QuoteChar); Writeln('ListaCadenas.Delimiter=',ListaCadenas.Delimiter); Writeln(ListaCadenas.Text); End.