11 replies to this topic

[enecumene]

A ver, quiero que alguien me explique el funcionamiento de estas propiedades, se supone que separa un string dependiendo del delimiter, pero no logro obtener ese valor delimitado, si pueden con ejemplos mejor.

Saludos

[eduarcol]

No se si exista una función que haga eso, pero hay muchas opciones para hacerlo, esta es mi propuesta

delphi

function ContarLetras(cadena:string;caracter:char):integer;
var
 lineas: TStringList;
begin
 lineas := TStringList.Create;
 Lineas.StrictDelimiter := true;
 Lineas.Delimiter := Caracter;
 Lineas.DelimitedText := cadena;
 result := Lineas.Count-1;
 lineas.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(inttostr(ContarLetras('Returns the index value of a substring.','e')));
end;

Salud OS

[enecumene]

Ah vaya, dejame confirmar si el listbox tiene la propiedad StrictDelimiter, en unos momentos le confirmo.

Salduos.

[egostar]

No se si exista una función que haga eso, pero hay muchas opciones para hacerlo, esta es mi propuesta

delphi

function ContarLetras(cadena:string;caracter:char):integer;
var
 lineas: TStringList;
begin
 lineas := TStringList.Create;
 Lineas.StrictDelimiter := true;
 Lineas.Delimiter := Caracter;
 Lineas.DelimitedText := cadena;
 result := Lineas.Count-1;
 lineas.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(inttostr(ContarLetras('Returns the index value of a substring.','e')));
end;

Salud OS

Ah si, cuando quise matar moscas a cañonazos

Salud OS

[enecumene]

Pues no, no lo tiene, me costará pasar el valor primero a un StringList antes de..., mientras, no hay otra opción mejor??.

[enecumene]

Ah putadas, que re-wey soy, no me había fijado de que se trataba de una función, eso me debe servir perfctamente, ya les comento de nuevo

[Delphius]

Ummm....  tengo entendido que la propiedad StrictDelimiter fue introducida en la clase TStrings en una versión posterior a D7 

Básicamente la idea es:
1) En la propiedad Delimiter colocar el carácter delimitador.
2) En la propiedad DelimiterText el texto a partir.
3) Listo... ya tienes en la propiedad Strings la cadena partida.

Saludos,

[enecumene]

Eso acabo de confirmar amigo Delphius en D7 no existe esa propiedad y así mismo como lo comentas no me funciona desde el ListBox, tendré que pasarlo antes por un Stringlist antes de intoriducirlo al Listbox, ya comento los resultados.

[Delphius]

Eso acabo de confirmar amigo Delphius en D7 no existe esa propiedad y así mismo como lo comentas no me funciona desde el ListBox, tendré que pasarlo antes por un Stringlist antes de intoriducirlo al Listbox, ya comento los resultados.

Pos... si que está raro  , porque a mi me funciona:

delphi

procedure TForm1.bnPartirClick(Sender: TObject);
const
  Text = 'hola$Fernando$esto$debería$funcionar';
begin
  lbxListado.Items.Delimiter := '$'; //delimitador
  lbxListado.Items.DelimitedText := Text; // el texto a partir
end;

En el ListBox lbxListado aparece el texto partido:

hola
Fernando
esto
debería
funcionar

Saludos,

[enecumene]

Pues ya lo probé, el problema mío era que utilizaba la propiedad Add, luego me doy cuenta de que no era necesario ya que delimitedText lo hace automáticamente, gracias por aclararmelo amigo Delphius.

Saludos.

[Delphius]

gracias por aclararmelo amigo Delphius.

Saludos.

No tienes que agradecérmelo. Hoy por ti, mañana por mi. 
Además, mejor ni te digo los intentos que hice hace tiempo para aprender a usar estas dos propiedades. Me inventé cada rueda 

Saludos,

[andres1569]

Sólo aclarar que las propiedades Delimiter y DelimiterText se introdujeron en Delphi 6.

Saludos