Dúvida com o ListBox

Delphi

31/05/2008

Olá pessoal a duvida é o seguinte, eu tenho 2 listbox:

Conteúdo do listbox1:
F:\Pasta1\Imagem1.jpeg F:\Pasta2\Imagem2.jpeg F:\Pasta3\Imagem3.jpeg F:\Pasta4\Imagem4.jpeg


Conteúdo do listbox2:
Imagem2.jpeg Imagem4.jpeg


E eu queria que em um terceiro listbox fosse mostrado o seguinte resultado:
F:\Pasta2\Imagem2.jpeg F:\Pasta4\Imagem4.jpeg


abraço


Mausimag

Mausimag

Curtidas 0

Respostas

Marco Salles

Marco Salles

31/05/2008

[b:1a310bab04]codigo:[/b:1a310bab04]
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 ...


GOSTEI 0
Marco Salles

Marco Salles

31/05/2008

[b:a7341161c1]Código: [/b:a7341161c1]
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


GOSTEI 0
Mausimag

Mausimag

31/05/2008

da erro nessa linha:

posIni:=Posex(´\´,s,pos(´\´,s)+1);


[Error] Unit1.pas(81): Undeclared identifier: ´Posex´



GOSTEI 0
Mausimag

Mausimag

31/05/2008

arrumei, compilo mas não retorna nenhum resultado no listbox3...


GOSTEI 0
Marco Salles

Marco Salles

31/05/2008

citação de mausimag
arrumei, compilo mas não retorna nenhum resultado no listbox3...


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:
F:\Pasta1\Imagem1.jpeg F:\Pasta2\Imagem2.jpeg F:\Pasta3\Imagem3.jpeg F:\Pasta4\Imagem4.jpeg



[b:359ce68f2f]Conteúdo do listbox2: [/b:359ce68f2f]
Citação:
Imagem2.jpeg Imagem4.jpeg


o conteurdo de ListBox3 Será :
[b:359ce68f2f]
F:\Pasta2\Imagem2.jpeg F:\Pasta4\Imagem4.jpeg
[/b:359ce68f2f]

Testei aqui...

Confira esses conteudos por gentileza


GOSTEI 0
POSTAR