function potongbilangan(bil:real;p:integer):real;
const suf = '000000000000000000000000000000000000000000000000000000000000';
var ds : char;
      sbil, s1,s2 : string;
      x : integer;
begin
   sbil := floatToStr(sbil);
   ds := decimalseparator;
   x := pos(ds,sbil);
  s1 := copy(sbil,1,x-1);
  s2 := copy(sbil,x+1,length(sbil)) + suf;
  x := p - x - 1;
  s2 := copy(s2,1,x);
  result := s1 + ds + s2;
end;

result := strToFloatDef(s1 + ds + s2, 0);

@zieborg: agnes, data type seperti float, integer dll tidak bisa di kustomisasi ukurannya, karena telah ditentukan. contohnya integer, ukurannya 32 bit, dst. baca lagi masalah data types deh.. c u