[[egostar]]

Hola

Tengo un pequeño detalle, buscando por aquí y por allá vi que se puede cargar un TStringList con valores obtenidos desde un archivo de texto, hasta aquí todo bien, uso las propiedades Delimiter y DelimitedText de esta forma:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: Integer;
  Linea: string;
begin
  DoubleBuffered := True;
  Memo1.Lines.LoadFromFile('C:\Desarrollo\TDelphi\SGP\Documentos\Base.csv');
  for i := 0 to Memo1.Lines.Count - 1 do begin
      Linea := Memo1.Lines[i];
      Linea := StringReplace(Linea,#9,' ',[rfReplaceAll]); //Quito los caracteres Tab que no me sirven,
      Memo2.Lines.Delimiter := ';'; //Asigno punto y coma como delimiter
      Memo2.Lines.DelimitedText := Linea; //Agrego la Linea al Memo
      Memo2.Lines.Add('==========================');
  end;
end;

Ok, hasta aquí todo aparenta funcionar como debe ser, pero..... (como siempre hay un pero) sigue tomando el espacio como un delimiter, que por lo que he leído es el que traen por defecto.

Bueno, después de todo este rollo mareador, la pregunta que quiero hacer.

¿Hay manera de eliminar el espacio como delimiter?

Yo lo he resuelto cambiando el espacio por un guion bajo,

Código Delphi [-]
      Linea := StringReplace(Linea,' ','_',[rfReplaceAll]);

Pero no es lo que necesito.

Salud OS y gracias.