//去除左边的全角
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;