Probleminha com ListBox...

Delphi

29/03/2004

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

Curtidas 0

Respostas

Educdc

Educdc

29/03/2004

:arrow: Alguem pode ajudar?

Abraços

Eduardo


GOSTEI 0
Paullus

Paullus

29/03/2004

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.


GOSTEI 0
Educdc

Educdc

29/03/2004

Paullus,

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

Abraços
Eduardo


GOSTEI 0
Educdc

Educdc

29/03/2004

:arrow: Ninguem consegue ajudar n?


GOSTEI 0
Marco Salles

Marco Salles

29/03/2004

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;



GOSTEI 0
Paullus

Paullus

29/03/2004

Qual está sendo o problema caro colega?


GOSTEI 0
Paullus

Paullus

29/03/2004

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


GOSTEI 0
POSTAR