帮我看看这段代码意思,,注释一下

Question

        begin
          if pos('FOR',uppercase(s))>0 then
          begin
            s:=copy(s,3,pos('FOR',uppercase(s))-3);
          end
          else
            s:=copy(s,3,length(s));

Answer 1

copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def'pos(obj,target)   在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0.

Answer 2

看看pos函数、copy函数的用法就明白了

Answer 3

copy 的懂了..pos的不懂..谢谢楼上了啊