Ajuda com passar um texto para listbox

Delphi

23/10/2003

Bom, eu gostaria de pedir a ajuda de vcs, vou tentar explicar mais ou menos...

Eu tenhu uma lista de produtos dividida assim...
Arroz, Feijão, Bife... em um editbox normal...

Gostaria de passar apenas os nomes dos produtos para um listbox... achu que deu pra exlicar +- hehehe.. se pudessem e ajudar eu agradeceria mt...!

Vlwwwwwww!
[/b]


Xblackoutx

Xblackoutx

Curtidas 0

Respostas

Osocram

Osocram

23/10/2003

tenta...
listBox.iten:=EditBox.iten


GOSTEI 0
Xblackoutx

Xblackoutx

23/10/2003

Poxa.. eu naum entendi ehehhe... sera que alguem poderia me ajudar ae????


GOSTEI 0
Dahud

Dahud

23/10/2003

heheheh, parece trabalhinho de escola ...

Clica no listbox e procura ´Itens´, depois que achou, clica nele, vai aparecer um botãozinho com (...), vc clica nele, daí é só digitar o conteúdo que vc quer no listbox.


GOSTEI 0
Xblackoutx

Xblackoutx

23/10/2003

Naum.. vc naum entendeu :P

Eu tenhu um texto... Tipo ´Arroz, feijão, seilaoquemais...´ eu quero pegar só as palavras e passa-las pra um listbox... entendeu?


GOSTEI 0
Beppe

Beppe

23/10/2003

procedure SeparaString(Items: TStrings; const S: String);
var
  I: Integer;
  T: String;
begin
  T := S;
  while T <> ´´ do
  begin
    I := Pos(´,´, T);
    if I = 0 then I := MaxInt;
    Items.Add(Trim(Copy(T, 1, I - 1)));
    Delete(T, 1, I);
  end;
end;


Chama SeparaString(ListBox1.Items, Edit1.Text);

Ataliba


GOSTEI 0
POSTAR