第二部分：简单程序阅读

已知:在Delphi中, Copy函数用于截取字符串,如:(
C
o
p
y
(
A
B
C
D
E
F
′
,
(
A
B
C
2
,
3
)
=
°
B
C
D
′
表示从第2个位置开始截取3个字符；Length函数用于获取字符串的字节长度，如：
L
e
n
g
t
h
(
A
B
C
′
)
=
3
;
While… do是循环语句。请阅读下面代码，在指定的地方添加注释说明，并且输入应用该函数的运算结果。
function TrimChar(Const S:String;Const myChar:String):String;
var
I,L,CharL:Integer;
begin
if myChar="then
begin
Result:=S;
Exit;
end;
L:=Length(S);
CharL := Length(myChar);
| := 1 ;
//注释: (简单说明下面两行的作用)
while(I<=L) and(Copy(S,I, CharL)= myChar) do
I := I+ CharL;
//注释: (简单说明以下段落的作用)
if I>L then
Result:="
else
begin
while Copy(S,L-CharL+1,CharL)= myChar do
L:=L - CharL;
Result:= Copy(S,I,L-1+1);
end;
end;
根据上述函数，7 。
T
r
i
m
C
h
a
r
(
A
B
A
B
C
D
A
B
C
A
B
′
,
A
B
′
)
=
。
(Cours