Para el que este aburrido y tenga ganas de pensar 2

[[seoane]]

Empezado por roman

Bueno, al parecer el ciclo nunca termina porque al inicializar Last1 y Last2 de esa manera, ambos quedan con una precisión de 1 que no alcanza ni para un entero de tres dígitos.

No estoy familiarizado con estos números, pero en mi turbo el método de kanvictor me funcionaba hasta con 60 dígitos. ¿Puede que se inicialicen de diferente manera?

[[marceloalegre]]

Empezado por seoane

No estoy familiarizado con estos números, pero en mi turbo el método de kanvictor me funcionaba hasta con 60 dígitos. ¿Puede que se inicialicen de diferente manera?

Epa! entonces estamos descubriendo que en turbodelphi hay cosas de esta indole implementadas de manera distinta a versiones anteriores como en mi caso delphi 7 .-

[roman]

Empezado por kanvictor

en turbodelphi hay cosas de esta indole implementadas de manera distinta a versiones anteriores

Con razón no entendía yo. Primero mencionaste

Empezado por kanvictor

el ciclo no corta nunca, porque empieza haciendo bien las cuentas aparentemente y despues mm no se....

y seoane tranquilamente te señaló el otro error, él no sabía del primero porque en turbo no se dá.

Lo que me desconcertó fue que tú le respondiste

Empezado por kanvictor

Es muy correcto lo que me dices Domingo!

Porque entonces pensé que sólo a mi se me presentaba ese error.



// Saludos

[[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