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