fazer a funcao se repetir quando eu quiser

Delphi

10/12/2007

ae galera preciso duma ajuda
achei uma funcao aqui no forum que retira ´/´ de itens numa listbox... ate ae tudo bem a funcao funciona 100¬ so q eu queria q a funcao repetisse oq ela faz a cada clique q eu desse num botao retirar teria como ?
a funcao eh essa aki
var
Np,N,i: Integer;
S: string;
begin
Timer1.Enabled := False;
for i:=0 to listbox1.Count - 1 do
  begin
     s:=ListBox1.Items.Strings[i];
     N := Pos(´=´,S);
     while N > 0 DO
      begin
        NP:=N;
        N:=posEx(´=´,S,N+1);
      end;
          Delete(S,NP+1, MaxInt);
        ListBox1.Items.Strings[i]:=S;

o topico é esse aqui http://forum.devmedia.com.br/viewtopic.php?t=80554&highlight=


Bertu

Bertu

Curtidas 0

Respostas

Facc

Facc

10/12/2007

ae galera preciso duma ajuda achei uma funcao aqui no forum que retira ´/´ de itens numa listbox... ate ae tudo bem a funcao funciona 100¬ so q eu queria q a funcao repetisse oq ela faz a cada clique q eu desse num botao retirar teria como ? a funcao eh essa aki 
var
Np,N,i: Integer;
S: string;
begin
Timer1.Enabled := False;
for i:=0 to listbox1.Count - 1 do
  begin
     s:=ListBox1.Items.Strings[i];
     N := Pos(´=´,S);
     while N > 0 DO
      begin
        NP:=N;
        N:=posEx(´=´,S,N+1);
      end;
          Delete(S,NP+1, MaxInt);
        ListBox1.Items.Strings[i]:=S;
o topico é esse aqui http://forum.devmedia.com.br/viewtopic.php?t=80554&highlight=


não seria só chamar a função novamente?


GOSTEI 0
Bertu

Bertu

10/12/2007

pois eh... eu ja tentei de tudo... adicionei timer e nada faz a funcao repetir oq ela faz alguem me ajuda


GOSTEI 0
Crash

Crash

10/12/2007

evento onclick do botao?


t+


GOSTEI 0
Facc

Facc

10/12/2007

evento onclick do botao? t+


pra repetir o onclick basta colocar NomeBotao.Click


GOSTEI 0
Bertu

Bertu

10/12/2007

naoo daa.... nada faz essa merda repetir!! se voces tiverem delphi aee pega coloca uma listbox e faz o teste! ele retira apenas uma vez... se tiver mais de um / na linha nao faz nada ele retira apenas uma vez
alguma ideia ?>


GOSTEI 0
Facc

Facc

10/12/2007

naoo daa.... nada faz essa merda repetir!! se voces tiverem delphi aee pega coloca uma listbox e faz o teste! ele retira apenas uma vez... se tiver mais de um / na linha nao faz nada ele retira apenas uma vez alguma ideia ?>



Eita... desse jeito vão te banir do forum... manera na linguagem...


GOSTEI 0
Joaoshi

Joaoshi

10/12/2007

Colega, transforme esta simplicidade em uma função e veja se funciona.

while Pos(´/´,sTexto) > 0 do
Delete(sTexto,Pos(´/´,sTexto),1);

Espero ter ajudado.


GOSTEI 0
POSTAR