Eliminar el espacio como delimiter por defecto

[[coso]]

Y, como te decia, ¿poniendo memo1.lines.delimitier := ';' antes de cargar el archivo? en teoria te lo tendria que cargar considerando como delimitador ese, a no ser que haya alguna otra variable.

[jhonny]

Otra forma de como lo puedes hacer es la siguiente:

Código Delphi [-]
 
procedure TForm2.Button1Click(Sender: TObject);
var
  Linea: String;
begin
  Memo1.Lines.LoadFromFile('C:\Desarrollo\TDelphi\SGP\Documentos\Base.csv');
  Memo2.Clear;
  for Linea in Memo1.Lines do
  begin
    ExtractStrings([';'], [' '], PCHAR(Linea+';'+StringOfChar('=', 17)), Memo2.Lines);
  end;
end;

[[egostar]]

Empezado por jhonny

Otra forma de como lo puedes hacer es la siguiente:

Código Delphi [-]
 
procedure TForm2.Button1Click(Sender: TObject);
var
  Linea: String;
begin
  Memo1.Lines.LoadFromFile('C:\Desarrollo\TDelphi\SGP\Documentos\Base.csv');
  Memo2.Clear;
  for Linea in Memo1.Lines do
  begin
    ExtractStrings([';'], [' '], PCHAR(Linea+';'+StringOfChar('=', 17)), Memo2.Lines);
  end;
end;

Hey, eres mi héroe amigo jhonny, funciona perfecto, te debo una

No entiendo como funciona eso que hiciste , pero lo voy a analizar, esta muy interesante

Salud OS

[*Caro*]

Hola egopolice, que yo sepa es así como funciona, la forma que se me ocurre para que te separe tomando en cuenta los espacios es utilizando QuoteChar.

Código Delphi [-]
  StringList.QuoteChar := ';';
  StringList.Delimiter := ' ';
  StringList.DelimitedText := ';Juan Pérez Martínez; ;[email protected]; ;Compañia Universal;';

tu cadena tendría que estar de esa forma, egopolice sería mejor que reemplaces por la _ como lo estabas haciendo y despues esa _ por un espacio. O buscar otra forma sin usar Delimiter y DelimiterText.

Saluditos

[[egostar]]

Empezado por Caro

Hola egopolice, que yo sepa es así como funciona, la forma que se me ocurre para que te separe tomando en cuenta los espacios es utilizando QuoteChar.

Código Delphi [-]
  StringList.QuoteChar := ';';
  StringList.Delimiter := ' ';
  StringList.DelimitedText := ';Juan Pérez Martínez; ;[email protected]; ;Compañia Universal;';

tu cadena tendría que estar de esa forma, egopolice sería mejor que reemplaces por la _ como lo estabas haciendo y despues esa _ por un espacio. O buscar otra forma sin usar Delimiter y DelimiterText.

Saluditos

Hola amiguita Caro, si, de hecho yo tenia esa opción, pero la verdad es que trataba de simplificar el código, digo, con Delphi puedes hacer todo lo que necesitas y mas , solo que no nos sabemos todas sus bondades, con el código que posteo jhonny funciona tal y como lo soñe y con menos lineas de las que estaba haciendo, quiero decir, se cumplieron dos objetivos, simplificar el código y lograr el resultado esperado

Salud OS

[roman]

Amigo egostar, ¿qué tu versión de Delphi no cuenta con la propiedad StrictDelimiter para el StringList?

// Saludos

[[egostar]]

Empezado por roman

Amigo egostar, ¿qué tu versión de Delphi no cuenta con la propiedad StrictDelimiter para el StringList?

// Saludos

Empezado por RTFH

Description

Use this property to specify whether the Delimiter is the only value used within the DelimitedText property. If set to True, individual strings in DelimitedText are separated only by the character that is the value of Delimiter. If set to False, individual strings in DelimitedText can be separated by a space, a non-printable character, or the character that is the value of Delimiter.

Salud OS

[[seoane]]

En defensa de egostar hay que decir que la propiedad StrictDelimiter es relativamente reciente. Yo la vi por primera vez en el turbo, en delphi 7 no existía

[[egostar]]

Empezado por coso

Y, como te decia, ¿poniendo memo1.lines.delimitier := ';' antes de cargar el archivo? en teoria te lo tendria que cargar considerando como delimitador ese, a no ser que haya alguna otra variable.

Hola haciendo lo que comentas me resulta esto

Juan
Pérez;[email protected];Av
Conocida
1254;

Salud OS y gracias