Fórum Probleminha com ListBox... #223139

29/03/2004

0

Delphi

Tenho edits (maior, menor, intervalo) e 3 listbox....

Exemplo:
:arrow: No listbox1 o usuário adiciona os valores de 1 a 13, sequencialmente (1,2,3,4,...,13)!
:arrow: No intervalo o usuario digita 2
:arrow: Maior = 13
:arrow: Menor = 1

Agora quero q o listbox2 e listbox3 receba os intervalos:
vai ficar assim:
Listbox2 Listbox3
1 |----------- 3
3 |----------- 5
5 |----------- 7
7 |---------- 9
9 |----------- 11
11 |----------- 13

Como q eu percorro o listbox1 para ter esse resultado?


Educdc

Educdc

Responder

Posts

30/03/2004

Educdc

:arrow: Alguem pode ajudar?

Abraços

Eduardo


Responder

Gostei + 0

30/03/2004

Paullus 

procedure TForm1.passaIntervalo;
var
  i : integer;
  soma: integer;
begin
  ListBox2.Items.Clear;
  for i := 0 to (ListBox1.Count - 1) do
  begin
    soma := StrToInt(ListBox1.Items.Strings[i]) + StrToInt(edIntervalo.Text);
    if soma < StrToInt(edMaior.Text) then
      ListBox3.Items.Add(IntToStr(Soma));
    else
      Break;
  end;
    
  ListBox3.Items.Clear;
  for i := 0 to (ListBox2.Count - 1) do
  begin
    soma := StrToInt(ListBox2.Items.Strings[i]) + StrToInt(edIntervalo.Text);
    if soma < StrToInt(edMaior.Text) then
      ListBox3.Items.Add(IntToStr(Soma));
    else
      Break;
  end;
    
end;


Num testei não, mas deve estar correto.


Responder

Gostei + 0

30/03/2004

Educdc

Paullus,

Vlw por esta tentando ajudar, mais ainda n deu certo...

Abraços
Eduardo


Responder

Gostei + 0

30/03/2004

Educdc

:arrow: Ninguem consegue ajudar n?


Responder

Gostei + 0

30/03/2004

Marco Salles

Chame os Tres Edits De EdMaior, EdMenor e EdIntervalo Respectivamente Na Secção Private Do Seu Form Declare:
private
procedure passaIntervalo;
e Tente o Seguinte Código:
procedure TForm1.passaIntervalo;
var
  i : integer;
  soma: integer;
begin
  ListBox2.Items.Clear;
  i:=0;
  While i <=(STrToInt(EdMaior.Text)-StrToInt(EdIntervalo.Text)) do
  begin;
      ListBox2.Items.Add((ListBox1.Items[i]));
      i:=i+StrToInt(EdIntervalo.Text);
  end;
  ListBox3.Items.Clear;
  i:=StrToInt(EdMenor.Text)+StrToInt(EdIntervalo.Text)-1;
  While i<= StrToInt(EdMaior.Text)-1 do
  begin
      ListBox3.Items.Add((ListBox1.Items[i]));
      i:=i+StrToInt(EdIntervalo.Text);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.passaIntervalo;
end;



Responder

Gostei + 0

31/03/2004

Paullus

Qual está sendo o problema caro colega?


Responder

Gostei + 0

31/03/2004

Paullus

:wink:
Faz o seguinte... me manda o erro que tá ocorrendo. Se eu puder é lógico que eu vou ajudar. Só que pode demorar um pouquinho, porque só rola de acessar aqui quando eu tô sozinho na empresa.


Responder

Gostei + 0

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

Aceitar