这段C++b的代码谁能翻译成delphi的代码啊，帮帮忙，200分决不食言

/--------------------------------------------------------------------------- /----------------------------------------------