Dúvida com o ListBox
31/05/2008
0
Conteúdo do listbox1:
Conteúdo do listbox2:
E eu queria que em um terceiro listbox fosse mostrado o seguinte resultado:
abraço
Mausimag
Posts
01/06/2008
Marco Salles
var i,j,posini:integer; s:string; begin for i:=0 to ListBox1.Count - 1 do begin s:=listBox1.Items.Strings[i]; posIni:=PosEx(´\´,s,pos(´\´,s)+1); s:=copy(s,posini+1,length(s)-posini); j:=listBox2.Items.IndexOf(s); if listBox2.Items.IndexOf(s) > -1 then begin s:=copy(listBox1.Items.Strings[i],0,posini); ListBox3.Items.Add(s+ListBox2.Items.Strings[j]); end; end
[b:1a310bab04]Outros:[/b:1a310bab04]
de onde surgiu esta biba que faz tamanha apologia da classe ...
01/06/2008
Marco Salles
var i,j,posini:integer; s:string; begin for i:=0 to ListBox1.Count - 1 do begin s:=listBox1.Items.Strings[i]; posIni:=PosEx(´\´,s,pos(´\´,s)+1); s:=copy(s,posini+1,length(s)-posini); j:=listBox2.Items.IndexOf(s); if listBox2.Items.IndexOf(s) > -1 then begin s:=copy(listBox1.Items.Strings[i],0,posini); ListBox3.Items.Add(s+ListBox2.Items.Strings[j]); end; end
[b:a7341161c1]Outros: [/b:a7341161c1]
de onde surgiu esta biba que faz tamanha apologia da classe ...
ERRATA ...
[b:a7341161c1]Ande : [/b:a7341161c1]´de onde surgiu esta biba que faz tamanha apologia da classe ...´
lê_se :
´de onde surgiu esta biba que faz tamanha apologia da classe [b:a7341161c1]Dele[/b:a7341161c1] ....´
obrigado
01/06/2008
Mausimag
posIni:=Posex(´\´,s,pos(´\´,s)+1);
01/06/2008
Mausimag
01/06/2008
Marco Salles
Impissible amiguito ... Se os dados de ListBox1 e ListBox2 Forem extamamente esses:
Enviada: Dom Jun 01, 2008 2:02 am Assunto: Dúvida com o ListBox
--------------------------------------------------------------------------------
Olá pessoal a duvida é o seguinte, eu tenho 2 listbox:
[b:359ce68f2f]Conteúdo do listbox1: [/b:359ce68f2f]
Citação:
[b:359ce68f2f]Conteúdo do listbox2: [/b:359ce68f2f]
Citação:
o conteurdo de ListBox3 Será :
[b:359ce68f2f]
Testei aqui...
Confira esses conteudos por gentileza
Clique aqui para fazer login e interagir na Comunidade :)