Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ayuda con un pequeño problema (https://www.clubdelphi.com/foros/showthread.php?t=70143)

GiovanniP 02-10-2010 00:51:49

ayuda con un pequeño problema
 
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

Código:

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


Casimiro Noteví 02-10-2010 01:01:29

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 02-10-2010 02:25:42

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 02-10-2010 03:05:36

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

Saludos :)

Caral 02-10-2010 03:17:11

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

ecfisa 02-10-2010 03:29:57

Cita:

Empezado por Caral (Mensaje 378186)
Hola
Cual tarea, si le diste todo:D
Siempre me gusta ver buen codigo asi aprendo algo nuevo.:cool:
Saludos

:D

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 02-10-2010 03:38:31

Hola
A mi me hubiese gustado estudiar Ingenieria de sistemas o por lo menos programación, se nota:D
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 02-10-2010 05:01:27

Off topic
 
Cita:

Empezado por Caral (Mensaje 378188)
A mi me hubiese gustado estudiar Ingenieria de sistemas o por lo menos programación, se nota:D
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). :p

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

Caral 02-10-2010 05:09:19

Hola
Un gusto saludarte amigo AL.
No te imagino como Economista, pero si como escritor.
La verdad es que la vida por alguna razón, desconocida por mi hasta el momento, nos lleva hacia donde tenemos que ir, aveces nos gusta, aveces no, pero creo que tiene que haber una razón para todo.
Ademas si todo fuera como queremos seria muy aburrido, verdad......:D;)
Saludos

Al González 02-10-2010 09:03:17

Cita:

Empezado por Caral (Mensaje 378199)
Un gusto saludarte amigo AL.
No te imagino como Economista, pero si como escritor.

Gracias Carlos, el gusto es igual de este lado. :)

Es que el estereotipo de economista que solemos elaborar es el de un tipo vestido con un traje gris, portafolios en mano y trabajando como asesor financiero de adinerados empresarios. Pero a mí la economía me interesa en primera instancia por el tremendo impacto social que tienen los diferentes sistemas, y por lo pernicioso que es vivir del futuro (crédito) en el llamado libre mercado.

Está claro que el sistema capitalista no es sostenible, y desafortunadamente los ejemplos más llamativos que la historia ha dado de otras alternativas han tenido resultados atroces. Sin embargo, la gente no suele reparar en que el fracaso o deterioro de un sistema económico está fuertemente ligado dos cosas: el sistema político de cada país y el esquema de valores sociales de quienes ejercen el poder.

Puede que un nuevo sistema económico que tome lo mejor de diversas teorías, considere la sostenibilidad de los recursos y sea puesto en práctica bajo un ambiente ampliamente democrático, sin excepción de ningún rincón del mundo, sea parte lo que remedie definitivamente la pobreza y otros pesares de la humanidad. Aunque quizá, para llegar a establecer ese sistema, la historia tendrá que cruzar primero por el año en el que los habitantes del planeta pasarán más tiempo leyendo libros que viendo televisión o asistiendo a mítines.

Cada vez que pienso en la hambruna, llego a la conclusión de que el ser humano es inteligente como individuo, pero formidablemente estúpido como especie (repartida esa estupidez en proporción al poder económico y político de cada quien). No obstante, creo que hasta eso es remediable si cada día fomentamos un poco el pensamiento.


Cita:

Empezado por Caral (Mensaje 378199)
Ademas si todo fuera como queremos seria muy aburrido, verdad......:D;)

Para los que quieren mucho aburrimiento sí sería muy aburrido. xD

Mas voy contigo en que todo tiene un orden en el cosmos, aunque no conozcamos el algoritmo. ;)


Un abrazo fuera de tema.

Al González.

P.D. Espero que GiovanniP no esté pensando ¡pero dónde me vine a meter! :D :o

GiovanniP 02-10-2010 09:17:37

para nada amigo, estoy empexando en delphi y para poner la cereza al pastel yo soy estudiante de economía, muchas gracias por la ayuda un saludo.

Al González 02-10-2010 17:24:38

Cita:

Empezado por Caral (Mensaje 378199)
La verdad es que la vida por alguna razón, desconocida por mi hasta el momento, nos lleva hacia donde tenemos que ir [...] creo tiene que haber una razón para todo.

GiovanniP: Aunque Delphi dejara de aparecer en tu plan de estudios o proyectos en el futuro, serás siempre bienvenido en este foro, donde Delphi representa algo más que una herramienta de programación.

Mucho éxito con tu carrera profesional. :)


La franja horaria es GMT +2. Ahora son las 05:17:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi