turbo pascal 7
别的都还可以，
就是void fun(char* p)到procedure fun(p:pchar)的函数代码里，p[i]的转换没找到好的办法，tp7不支持array of char，必须确定数组的大小，很烦
只要以p:pchar传入，然后作2个函数getpchar(p:pchar;index:int)和setpchar(p:pchar;index:int;c:char)，感觉效率低了

还有if(y) return x需要改成if(y)then begin 函数名:=x; exit; end;麻烦了很多
而且pascal没有宏定义替换，一点办法都没有。。。

另外，uses mypas，总是说没有匹配的unit，明明我已经写了一个mypas.pas，并编译成tpu，并复制tpu到当前目录和\tp\units目录都不行。。。