Separar Palabras en un documento

[dec]

Hola,

Una posible solución sería usar la clase "TStringList", que cuenta con una propiedad "CommaDelimitedText", de tipo "string". En esta propiedad cargarías el texto separado por comas, y, hecho eso, tendrías en el "TStringList" la lista de cada una de los elementos (palabras) por separado.

[XaSu]

Gracias Dec por la respuesta tan rápida, lo voi a probar y te aviso

XaSu!





No encuentro el componente "TStringList" y lo hice así pero no me funciona, disculpa las molestias es que igual soy nuevo en este lenguaje.

Código Delphi [-]
procedure TformPrincipal.btnAbrirClick(Sender: TObject);
var Dir: string;
    t :TStringList;
begin
  if CargarPLU.Execute then
  begin
    t.Create;
    t.Clear;

    Memo.Clear;
    Dir := CargarPLU.FileName;
    Memo.Lines.LoadFromFile(Dir);
    eDireccion.Text := Dir ;   //Edit para visualizar la ruta 
    t.LoadFromFile(Dir);
    t.CommaText;           //t.CommadelimitedText; me da error no reconoce el CommaDelimitedText
    Memo2.Lines := t;     //Para Visualizar el StringList
  end;

end;

o no es así?

[[basti]]

Hola, el problema está en la creación del objeto y en la forma de usar delimitedText. Ya que los datos vienen separados por comas mejor que DelimitedText deberías usar CommaText:

Código Delphi [-]
procedure TformPrincipal.btnAbrirClick(Sender: TObject);
var Dir: string;
    t :TStringList;
begin
  if CargarPLU.Execute then
  begin
    t := TStrinList.Create;
    t.Clear;

    Memo.Clear;
    Dir := CargarPLU.FileName;
    Memo.Lines.LoadFromFile(Dir);
    eDireccion.Text := Dir ;   //Edit para visualizar la ruta 
    // t.LoadFromFile(Dir); No cargar los datos desde el archivo, hay que asignarlos a CommaText
    t.CommaText := Memo.Lines.Text;          
    Memo2.Lines.Assign(t);     //Para Visualizar el StringList
    t.free;
  end;

end;

[XaSu]

muchas gracias basti, me resulto de maravillas