Fórum fazer a funcao se repetir quando eu quiser #350343

10/12/2007

0

Delphi

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

Responder

Posts

10/12/2007

Facc

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?


Responder

Gostei + 0

11/12/2007

Bertu

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


Responder

Gostei + 0

11/12/2007

Crash

evento onclick do botao?


t+


Responder

Gostei + 0

11/12/2007

Facc

evento onclick do botao? t+


pra repetir o onclick basta colocar NomeBotao.Click


Responder

Gostei + 0

11/12/2007

Bertu

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 ?>


Responder

Gostei + 0

11/12/2007

Facc

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...


Responder

Gostei + 0

11/12/2007

Joaoshi

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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar