Separar Palabras en un documento
 

Hola foreros, tengo otro problema :(, eh buscado en el foro pero lo que mas se aproxima es separar una lista
(ejemplo Hola
Como
Están )
y lo que yo necesito es separar para luego guardar en mi base de dato (access), la unica ayuda que tengo es que lo que quiero separar ya viene separado por coma (ejemplo Hola,Como,Están), este documento lo cargo en un memo para visualizarlo primero y luego separarlo, y no se me ocurre como hacerlo, alguna idea.

De ante mano muchas gracias

XaSu!

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.

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

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í?

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;

muchas gracias basti, me resulto de maravillas ;)