Cargar Linea En Varios Items De Un ListBox

[ZayDun]

Hola a todos! tengo una duda y es que recibo en un memo el contenido que quiero pasar a un listbox.. hasta hay todo bien, pero me llega asi..

EJEMPLO: uno dos tres cuatro etc..

y quiero cargarlos cada en los items del listbox de tal forma que quede asi..

uno
dos
tres
cuantro
etc...

supongo que como lo delimita un espacio se podra hacer algo, pero he estado buscando en el foro y no he encontrado nada. Un saludo y gracias por todo!

[tito_lolo]

Pues por ejemplo, puedes utilizar la función ExtractStrings() para trocear la cadena. Le pasas la cadena a procesar, el caracter delimitador y te devuelve un TStringList con las cadenas separadas.

Por ejemplo se podría hacer de la siguiente forma


procedure TForm1.Button1Click(Sender: TObject);
var
elementos : TStringList;
j,
i : integer;
aux : string;
begin
lista.Clear();
elementos := TStringList.Create();

for i := 0 to memo.Lines.Count-1 do begin
elementos.Clear();
ExtractStrings([' '], [], PChar(memo.lines.Strings[i]), elementos);
for j := 0 to elementos.Count-1 do
lista.Items.Add(elementos.Strings[j]);
end;
elementos.Free();
end;


Salu2