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]); Memo2.Lines.Delimiter := ';'; Memo2.Lines.DelimitedText := Linea; 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.