ayuda con un pequeño problema

[GiovanniP]

bueno tengo un Edit1, ListBox1, Button1, button2.. bueno lo que requiero es agregar numeros del Edit1 al ListBox1 con el Button1 y el Button2 me diga un showmessage cual es el mayor y el menor numero agregado al ListBox1. Hize la parte mas facil: el agregar los numeros

procedure TForm1.Button1Click(Sender: TObject); 
begin 
ListBox1.Items.Add(Edit1.Text) 
end;

[Casimiro Notevi]

Hola GiovanniP, bienvenido a clubdelphi, por favor lee nuestra guía de estilo para poder ayudarte mejor, gracias.
Y recuerda poner títulos más apropiados

[[Caral]]

Hola
Lo que se puede hacer es usar dos variables que carguen y guarden los datos.
Es la forma mas sencilla que se me ocurre.
Saludos

[ecfisa]

Hola GiovaniP.

Totalmente de acuerdo con el amigo Caral, te dió la forma más simple y eficiente de hacerlo: dos variables.
De ese modo te ahorras el ordenamiento; necesario si tomás los datos en conjunto.

Te ejemplifico como podés hacer la evaluación de mínimo y máximo. Los valores, en lugar de ser ingresados,
pueden ser tomados de un ListBox, etc.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  Num,Max,Min: string;
begin
  Num:= InputBox('Numero','Cadena vacía finaliza','');
  Min:= Num;
  Max:= Num;
  while Num <> '' do
  begin
    if (Num > Max)and(Num>'') then Max:= Num;
    if (Num < Min)and(Num>'') then Min:= Num;
    Num:= InputBox('Numero','Cadena vacía finaliza','');
  end;
  ShowMessage('Mínimo: '+Min+ #10#13 + 'Máximo: '+Max);
end;

Nota: Te dejo las verificaciones de ingreso como tarea...

Saludos

[[Caral]]

Hola
Cual tarea, si le diste todo
Siempre me gusta ver buen codigo asi aprendo algo nuevo.
Saludos

[ecfisa]

Empezado por Caral

Hola
Cual tarea, si le diste todo
Siempre me gusta ver buen codigo asi aprendo algo nuevo.
Saludos

Gracias a tu sugerencia me acordé de los códigos de los primeros años de la facultad con el TP 4.0,
creo el que el primero... línda epoca !!


Saludos.