Clasificación de las mujeres en la cama

[roman]

Oye DarkByte, y ¿no quedaría un poco más prolijo tu código así?

Código Delphi [-]
with Chica do
  if EstasConAlguienAhoraMismo then
    MiraPaOtroLao
  else if Horrorosa or not Inteligente or not BuenaGente then
    Ignorar
  else if NoTeIgnora then
    MeteEnLaListaDePosibles
  else
    SoloAmiga;

[Nuria]

Empezado por mbarrera

¿como te consideras tu?

A tí te lo voy a decir ... .

Bienvenido al club

[DarkByte]

Bug crítico en la clasificación solucionado...

Roman, es cierto que está mejor a tu manera... pero ya sabes que mi nivel es más reducido, y de momento cositas así no me salen... además, no me gusta el with ... do porque no te sale el menú desplegable... y yo, aunque la mayoría de las veces no lo use, me gusta saber que está ahí, porque a veces, cuando te equivocas en algo, no te sale y así se que he fallado en algo.

[roman]

Empezado por DarkByte

no me gusta el with ... do porque no te sale el menú desplegable

Muy de acuerdo contigo. Si no recuerdo mal, en VB hay que empezar con punto las instucciones en el with:

with Chica do
  if EstasConAlguienAhoraMismo then
    MiraPaOtroLao
  else if .Horrorosa or not .Inteligente or not .BuenaGente then
    Ignorar
  else if .NoTeIgnora then
    MeteEnLaListaDePosibles
  else
    SoloAmiga;

lo cual tiene dos ventajas. Primero, en cuanto pones el punto aparece el menú desplegable y segundo te permite distinguir y utilizar identificadores iguales. Por ejemplo, si tienes un objeto A con propiedades P1 y P2 puedes hacer algo así:

procedure Algo(P1, P2);
begin
  with A do
  begin
    .P1 := P1;
    .P2 := P2;
  end;
end;

Lo que me parece muy conveniente. En fin, hay algunas pocas cosillas de VB que desearía estuvieran presentes en Delphi.

// Saludos

[Julià T.]

aunque no viene al caso del hilo podeis probar

with button1 do
begin
CTRL+ESPACIO //para lista desplegable al menos en delphi 7
end;

[santana]

Empezado por Julià T.

Código Delphi [-]
 with button1 do
 begin
   CTRL+ESPACIO //para lista desplegable al menos en delphi 7
 end;

Muy bueno, Julià!!!!! ¡Una lista desplegable!
A ver si así se aclaran (¡ay, hombres!) .
¡¡Al fín un hombre que conoce a los de su propio género!! (de buen rollito, eh? )

Ha sido verdaderamente orgásmico. Aún lo estoy disfrutando

Saludos..... y sin rencor

[roman]

Empezado por Julià T.

with button1 do
begin
CTRL+ESPACIO //para lista desplegable al menos en delphi 7
end;

Cierto pero te presenta la lista con las propiedades y métodos no sólo de Button1 sino también del objeto circundante (el formulario en este caso).

// Saludos

[Julià T.]

originalmente publicado por roman
Cierto pero te presenta la lista con las propiedades y métodos no sólo de Button1 sino también del objeto circundante (el formulario en este caso).

CTRL+ESPACIO abarca a todas las posibilidades que puedas utilizar en el punto donde estàs, no tan solo del objeto, sinó de todas las unidades también incluidas en el uses.

originalmente publicado por santana
¡¡Al fín un hombre que conoce a los de su propio género!! (de buen rollito, eh? )

aclaro para sorpresa de muchos que no conozcan el nombre Julià es nombre de chico como indica santana