Pascal中有无类似C/C++中的#define命令？(50分)

arychen · 2004-05-30

#define WIDTHBYTES(bits) (((bits) + 31) / 32 * 4)
在DELPHI里怎么表示啊？

cash95 · 2004-05-30

写个函数吧

dedema · 2004-05-30

{$Define Beta}
不过，没有C++同名关键字的含义。

plzw · 2004-05-30

对哦，写个函数也不费劲的呀。
function WidthBytes(Bits: Integer): Integer;
begin
Result := ((Bits + 31) / 32 * 4;
end;

arychen · 2004-05-30

楼上的这个函数类型转换报错的！

dgsj · 2004-05-30

学习一下

JamesBond_L · 2004-05-30

function WidthBytes(Bits: Integer): Integer;
begin
Result := ROUND(((Bits + 31) / 32 * 4);
end

Solid_Snake · 2004-05-31

如果直接返回值是Extended的话，就不用转换了，[

]

lzharbor · 2004-05-31

同意楼上意见

SparkV · 2004-05-31

地球人都知道啊～Pascal向来不支持宏定义的嘛[

]