TStringList. Soporte de delimitadores.
Publicado: Mar Ene 27, 2009 2:00 pm
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
--
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

con el proyecto.
Por cierto, sería muy interesante que Xailer ya trajera la libreria CT
de xHarbour.
Saludos
Rafa Carmona
--