Obetenr numero mayor y menor de un listbox
Hola mi duda es de como haría para conseguir el máximo y menor numero de un listbox, antes ya e ingresado las canidades.
Espero que me puedas ayudar.
Atentamente.
MigueL
Espero que me puedas ayudar.
Atentamente.
MigueL
1 respuesta
Respuesta de osirisseth
1
Bueno pues aquí te envío un ejemplo en donde ya tienes los datos cargados en el listbox, tienes un botón y tienes dos text uno con nombre lbmayor y otro lbmenor.
El procedimiento es en el onclick del botón.
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,menor,mayor:integer;
begin
menor:=0;
mayor:=0;
For c:=0 to LB1.Items.Count-1 do Begin
a:=strtoint(LB1.Items.Strings[c]);
if a<menor then menor:=a;
if a>mayor then mayor:=a;
end;
edmenor.text:=inttostr(menor);
edmayor.text:=inttostr(mayor);
end;
Y eso es todo.
El procedimiento es en el onclick del botón.
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,menor,mayor:integer;
begin
menor:=0;
mayor:=0;
For c:=0 to LB1.Items.Count-1 do Begin
a:=strtoint(LB1.Items.Strings[c]);
if a<menor then menor:=a;
if a>mayor then mayor:=a;
end;
edmenor.text:=inttostr(menor);
edmayor.text:=inttostr(mayor);
end;
Y eso es todo.
