主题：十进制转化为八进制

 x:150;//需要转换的数据
cd:=1;
str:='';//不支持8进制 只能输出字符串形式
WHILE cd and ISLASTBAR do  //防止卡顿，只在最后一个周期计算。如果要历史K也计算，把ISLASTBAR 条件去掉
BEGIN
y:MOD(x ,8);//余
s:=(x-y)/8;//商
x:=s;
str:=STRCAT(NUMTOSTR(y,0)，str);
if s=0 then cd:=0;
END

MSGOUT(ISLASTBAR,str);//输出看下。