Para el que este aburrido y tenga ganas de pensar 2

[[marceloalegre]]

jajaja detallecitos de interpretación! lo bueno de toda la cuestión es que terminamos concluyendo que por lo menos en cuestiones de BCD las cosas funcionan distintas para un turbo que en un d7!(o otro de los viejos)

Saludos!

[[seoane]]

Que divertidos son los TBCD

Código Delphi [-]
var
  s,t,u: Variant;
begin
  s:= VarFMTBcdCreate('1',21,0);
  t:= VarFMTBcdCreate('1',21,0);
  u:= s+t;
  while Length(u) <= 20 do
  begin
    s := t;
    t := u;
    u:= s+t;
  end;
  ShowMessage(t);
end;

[roman]

El único "problema" aquí, sería que a la lentitud de las operaciones con bcds, se agrega la lentitud de los variant.

// Saludos

[[seoane]]

Yo no suelo usar variants, pero he de reconocer que queda muy bonito . La verdad eso de que una variable pueda ser de varios tipos a la vez siempre me pareció algo demoniaco . Terminaremos como en basic, asignándoles strings a numeros, numeros a strings, mezclando churras con merinas Luego no me extraña que los chavales pregunten como convertir un integer decimal a un interger hexadecimal, si es que los lían

[roman]

Por cierto, para compensar el gasto de los variants, podemos ahorrarnos una variable:

Código Delphi [-]
var
  s, t: Variant;

begin
  s:= VarFMTBcdCreate('1', 21, 0);
  t:= VarFMTBcdCreate('1', 21, 0);

  while Length(s + t) <= 20 do
  begin
    t := s + t;
    s := t - s;
  end;

  Edit1.Text := t;
end;

Si no te gustan los variants entonces no te gustará programar con php. Sin embargo a mi cada vez me gustan más los lenguajes no tipificados, es taaan cómodo programar sin tener que declarar todo.

// Saludos

[[seoane]]

Empezado por roman

Si no te gustan los variants entonces no te gustará programar con php. Sin embargo a mi cada vez me gustan más los lenguajes no tipificados, es taaan cómodo programar sin tener que declarar todo.

Tampoco es que los odie, son muy cómodos, quizá demasiado enseguida te acostumbras a usarlos Y supongo que son el futuro ???