如何传递这种字符Chr(27)+'p'+Chr(13)(100分)

开心 · 2004-06-11

比如我在一个编辑框钟输入:Chr(27)+'p'+Chr(13);
如何在程序中转变成Chr(27)+'p'+Chr(13)
而不是'chr(27)+'p'+chr(13)'

xuxiaohan · 2004-06-11

你可换个方法，不一定要输入Chr(27)+'p'+Chr(13)的，可以达到你的目的就行了。
你的要求我还要想想，以前没有考虑过这样的问题。

wzgss · 2004-06-11

做个语法分析过程，大概思路：
分析输入的字符串，if sametext('char',tmpstr) then
tmpInt:=copy(tmpstr,m,n);
result:=result+char(tmpInt);
......

app2001 · 2004-06-11

输入完毕后，自己一个个分析转换了

鹰之子 · 2004-06-11

这是要发控制指令吧，好像用write什么的

开心 · 2004-06-11

是不是要用文件流什么的???
如果用怎么做!!!

陈晨 · 2004-06-11

edit中是不允许出现控制字符的。
不过你可以用如下的方法实现char(27)
然后取得里面的27
程序中判断if pos('char(',str)>0 then
chr:=chr(strtoint(copy(str,5,pos(')',str)-5) ));

这样就完成转换了