TStringList y Delimitadores.

[ungrande87]

Empezado por Casimiro Notevi

¿No has encontrado nada buscando por nuestros foros?, es un tema que se ha tratado en repetidas ocasiones.

La otra vez que tuve problemas con la base de datos no tuve problemas en encontrar la solucion porque estan bien delimitados esos temas pero este en particular no pude encontrarlo. Por eso que cree este hilo, sino no molesto a la gente. Saludos

[Casimiro Noteví]

No molestas para nada

A ver si te sirven estos enlaces: este, este y este otro.

[ungrande87]

Empezado por Casimiro Notevi

No molestas para nada

A ver si te sirven estos enlaces: este, este y este otro.

Muchas gracias mañana sigo viendo este tema pero creo que con eso que me pasaste me alcanza. Gracias de verdad

[ungrande87]

me sirvio mucho la ayuda que me pasaste. Ahora tengo otra pregunta:

supongamos que tengo la siguiente cadena: hola.como.estas=el.dia.de.hoy

y con el StringList logre separar por punto las siguientes partes:

hola
como
estas=el
dia
de
hoy

lo que querria hacer ahora seria establecer que un determinado caracter me marque el final de la cadena en este caso seria el =, nose si me explique bien.

y la devolucion seria:

hola
como
estas

Espero puedan ayudarme. Gracias

[ungrande87]

Empezado por ungrande87

me sirvio mucho la ayuda que me pasaste. Ahora tengo otra pregunta:

supongamos que tengo la siguiente cadena: hola.como.estas=el.dia.de.hoy

y con el StringList logre separar por punto las siguientes partes:

hola
como
estas=el
dia
de
hoy

lo que querria hacer ahora seria establecer que un determinado caracter me marque el final de la cadena en este caso seria el =, nose si me explique bien.

y la devolucion seria:

hola
como
estas

Espero puedan ayudarme. Gracias

Recien acabo de darme cuenta que al espacio tambien me lo toma como separar y eso que yo puse al punto .

como Cadena.Delimiter := '.'

porque me pasa esto????

[ecfisa]

Empezado por ungrande87

Recien acabo de darme cuenta que al espacio tambien me lo toma como separar y eso que yo puse al punto . porque me pasa esto????

Hola.

Creo que a partir de Delphi 2006 existe la propiedad StrictDelimiter que soluciona ese problema. Pero para los que aún tenemos Delphi 7 hay que escribir un poco de código.

Una forma puede ser:

Código Delphi [-]
function SepararCadena(Cadena: string; const Delim: Char): TStrings;
var
  p: Integer;
begin
  Result:= TStringList.Create;
  Cadena:= Cadena + Delim;
  while Length(Cadena) > 0 do
  begin
    p:= Pos(Delim, Cadena);
    if p = Length(Cadena) then
      SetLength(Cadena,Length(Cadena)-1);
    Result.Add(Copy(Cadena, 1, p));
    Delete(Cadena, 1, p);
  end;
end;

Llamadas de ejemplo:

Código Delphi [-]
var
  Texto: string;
  TS: TStrings;
begin
  Texto:= 'Esta función, se podría haber evitado, si Delphi 7, '+
          'tuviera implementada la propiedad StrictDelimiter.';
  Memo1.Lines:= SepararCadena(Texto, ',');
  // otro ejemplo
  TS:= TStringList.Create;
  try
    TS:= SepararCadena(Texto, 'e');
    Memo1.Lines:= TS;
  finally
    TS.Free;
  end;
end;

Saludos.

Edito: ¡Al fín pude encontrar el hilo!... Creo que también te podría interesar esto

[ungrande87]

Empezado por ecfisa

Hola.

Creo que a partir de Delphi 2006 existe la propiedad StrictDelimiter que soluciona ese problema. Pero para los que aún tenemos Delphi 7 hay que escribir un poco de código.

Una forma puede ser:

Código Delphi [-]
function SepararCadena(Cadena: string; const Delim: Char): TStrings;
var
p: Integer;
begin
Result:= TStringList.Create;
Cadena:= Cadena + Delim;
while Length(Cadena) > 0 do
begin
p:= Pos(Delim, Cadena);
if p = Length(Cadena) then
SetLength(Cadena,Length(Cadena)-1);
Result.Add(Copy(Cadena, 1, p));
Delete(Cadena, 1, p);
end;
end;




Llamadas de ejemplo:

Código Delphi [-]
var
Texto: string;
TS: TStrings;
begin
Texto:= 'Esta función, se podría haber evitado, si Delphi 7, '+
'tuviera implementada la propiedad StrictDelimiter.';
Memo1.Lines:= SepararCadena(Texto, ',');
// otro ejemplo
TS:= TStringList.Create;
try
TS:= SepararCadena(Texto, 'e');
Memo1.Lines:= TS;
finally
TS.Free;
end;
end;





Saludos.

Edito: ¡Al fín pude encontrar el hilo!... Creo que también te podría interesar esto

Muchisimas gracias amigo me sirvio!!!