TStringList. Soporte de delimitadores.

[rafa]

Bueno, ya quedo zanjado el tema de la sobrecarga de operadores, os dejo
lo último que acabo de incorporar.
Una nueva clase TStrings, que es la base de TStringList.
Ahora podemos manejar una lista de strings, tan simple como ;
o := TStringList():Create()
// Delimitador
o:Delimiter := ","
o:DelimitedText := "C,Delphi,Pascal,Harbour,Xailer,Fortran"
Vamos a obtener como resultado 6 elementos en la lista.
Ahora , la property Text, usará hb_osnewline() como delimitador por defecto;
cText := "roja" + hb_osnewline()+;
"verde" + hb_osnewline()+;
"azul" + hb_osnewline()+;
"naraja" + hb_osnewline()+;
"amarillo"
o:Text := cText
? o:Text, obtendremos una cadena de texto de elementos separados por
hb_osnewline()
Espero os guste , es necesario la libreria CT de xHarbour, linkar
con el proyecto.
Por cierto, serí­a muy interesante que Xailer ya trajera la libreria CT
de xHarbour.
Saludos
Rafa Carmona
--

[notengo]

Rafa,
cuando la termines, si te parece bien, podemos hacer un componente externo
para poder manejarla desde el IDE. ¿Qué te parece?
Saludos,
José Lalí­n

[rafa]

=?ISO-8859-1?Q?Jos=E9_Lal=EDn?= <notengo@correo.com> wrote:
>
>Rafa,
>
>cuando la termines, si te parece bien, podemos hacer un componente externo
>para poder manejarla desde el IDE. ¿Qué te parece?
>
>Saludos,
>José Lalín
Nada me gustaría mas , y ya me enseñas como se hace.
Estoy mejorando el ejemplo, donde se pueda ver mejor e individualmente las
diferentes opciones.
Ya tengo realizado el que salte una exception en un duplicacion de la lista
ordenando , etc...
Además, el propósito inicial no se a cumplido, que era el poder coger un
fichero y convertirlo en una lista, y el coger una lista y convertirlo en
un fichero.
Pero ya puestos, lo terminamos del todo
La verdad he de decir que aprender Delphi me ha abierto definitivamente la
mente en Xailer.
Vamos, que voy aprendiendo en uno, para traspasarlo al otro, y que menos
que donarlo cuando J.F.G e Ignacio se han portado con uno más de lo que merezco.
Lástima que prácticamente en mi empresa a muerto xBase, soy el último de
mi especie.... vamos que nos vamos a la extinción sin remedio, y Xailer lo
uso exclusivamente por afición y disfrute.
Saludos
Rafa Carmona.