Me quede pensando en el uso del BCD y implemente la funcion en delphi en base a la que tenia en java... mmm no anda... a ver si alguien me corrige en mi desconocimiento del uso de los TBCD...
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
last1,last2, aux:TBcd;
begin
Last1:=StrToBcd('0');
Last2:=StrToBcd('1');
Aux :=StrToBcd('0');
while true do begin
BcdAdd(Last1,Last2,Aux); Last1:= last2;
Last2:=Aux;
if Length(BcdToStr(Aux))= 21 then
begin
ShowMessage(BcdToStr(Aux));
Exit;
end;
end;
end;
el ciclo no corta nunca, porque empieza haciendo bien las cuentas aparentemente y despues
mm no se....
Saludos!