ayuda con un pequeño problema

[Casimiro Noteví]

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.

[[Caral]]

Hola
A mi me hubiese gustado estudiar Ingenieria de sistemas o por lo menos programación, se nota
Me decidí en mi época por la industrial y aquí estoy, pasando en rato con lo que es ahora mi pasatiempo.
Saludos

[[Al González]]

Empezado por Caral

A mi me hubiese gustado estudiar Ingenieria de sistemas o por lo menos programación, se nota
Me decidí en mi época por la industrial y aquí estoy, pasando en rato con lo que es ahora mi pasatiempo.

En mi caso creo que tuve mucha suerte de iniciarme con la Informática en el CONALEP (instituto / preparatoria vocacional). Al comienzo ni idea tenía del uso que se les daba a las computadoras, pero cuando hice mi primer programa en GW-Basic, aquello cambió mi vida. Hasta ahora he programado más por afición que por negocio, y vaya que ha sido satisfactorio (sobre todo con Turbo Pascal / Delphi), a pesar de no haber logrado a mis 35 años el patrimonio habitual de quienes en México estudian más allá de la escuela secundaria.

No cursé una carrera universitaria, pero si lo hiciera en el futuro creo que me inclinaría por Economía o Cinematografía (lo sé, vaya opciones más disímiles).

Eso sí, si pudiera ganarme la vida escribiendo cuentos o novelas, y aquello me diera tiempo para seguir programando cosillas Delphi para desarrolladores, sería completamente feliz.