To číslo preveď na
string. Potom pomocou funkcie
Delete upravíš dĺžku reťazca. Dĺžku reťazca vracia funkcia
length.
Príklad:
Kód:
var
s: string;
i: integer = 100000;
odseknut: integer;
...
odseknut:= 3;
s:= IntToStr(i);
Delete(s, length(s) - odseknut, odseknut);
i:= StrToInt(s);
// i = '100'
