去除全角半角字符

//去除左边的全角

function MyTrimLeft(const S: string): string;

var

ci, sl: integer;

c: char;

begin

ci := 1; sl := length(S);

while (ci <= sl) do

begin

c := S[ci];

case c of

' ': inc(ci);

#161: if (ci < sl) and (S[ci + 1] = c) then

inc(ci, 2);

else

break;

end;

end;

Result := Copy(S, ci, sl);

end;

//去除右边的全角

function MyTrimRight(const S: string): string;

var

ci, sl: integer;

c: char;

begin

sl := length(S);

ci := sl;

while (ci >= 0) do

begin

c := S[ci];

case c of

' ': Dec(ci);

#161: if (ci <= sl) and (S[ci - 1] = c) then

Dec(ci, 2);

else

break;

end;

end;

Result := Copy(S, 1, ci);

end;