Filtro para Listbox
29/05/2008
0
por exemplo:
tenho uma url : [b:731366c885]www.devmedia.com.br/index.php?act=post&do=teste&olha=campo[/b:731366c885]
quando o filtro passase ficaria em 3 linhas assim:
[b:731366c885]www.devmedia.com.br/index.php?act=post&do=teste&olha=
www.devmedia.com.br/index.php?act=post&do=
www.devmedia.com.br/index.php?act=[/b:731366c885]
Alguem tem ideia como se fazer ?
Bertu
Posts
29/05/2008
Bertu
Alguma ideia ?
30/05/2008
Marco Salles
procedure TForm1.Button1Click(Sender: TObject); var i,posini,posFim,contador:integer; s:String; begin for i:=0 to ListBox1.Count-1 do begin s:=listBox1.Items.Strings[i]; for contador:=1 to 3 do begin posFim:=Pos(´=´,s); While (PosFim <> 0) do begin posIni:=PosFim; PosFim:=PosEx(´=´,s,posIni+1); end; s:=copy(s,1,posIni-1); listBox2.Items.Add(s+´=´); end; end; end;
30/05/2008
Bertu
ex.
www.devmedia.com.br/index.php?act=post&do=teste&olha=campo
www.devmedia.com.br/index.php?act=post&do=teste&olha=campo&marcos=&sales=
no primeiro link filtra certim , no segundo ja nao filtra tudo :)
30/05/2008
Marco Salles
de acordo com suas especificaçoes...
Generalize para Um Numero Qualquer de ´=´
Exemplo:
procedure TForm1.Button1Click(Sender: TObject); var i,posini,posFim:integer; s:String; begin for i:=0 to ListBox1.Count-1 do begin s:=listBox1.Items.Strings[i]; posIni:=pos(´=´,s); while posini <> 0 do begin posFim:=Pos(´=´,s); While (PosFim <> 0) do begin posIni:=PosFim; PosFim:=PosEx(´=´,s,posIni+1); end; s:=copy(s,1,posIni-1); listBox2.Items.Add(s+´=´); posIni:=pos(´=´,s); end; end; end;
Clique aqui para fazer login e interagir na Comunidade :)