co zmienic zeby nie wywalalo programu przy wiekszych liczbac

0

witam
czy ktos moze mi pomoc bo nie wiem co mam w tej funkcji zmienic zeby mi nie wyskakiwal blad przy wpisyaniu wiekszej liczby np.172938723625

FUNCTION Dec2Bin(Dec:LONGINT):String;

VAR
  B1:INTEGER;
  bin, BinDigit:STRING;

BEGIN
  BinDigit:='01';
  Bin:='';
  REPEAT
  B1:=DEC MOD 2;
  DEC:=DEC DIV 2;
  Bin:=CONCAT(BinDigit[B1+1],Bin);
  UNTIL DEC<1;
  Dec2Bin:=Bin;
END;

za odpowiedz z gory dziki
pozdrowienia
Mariusz

0

Zmień typ DEC na int64.

1 użytkowników online, w tym zalogowanych: 0, gości: 1