delphi 过滤字符串首位特殊符号

// 用法：ShowMessage (TrimEx('', '<>'));

function TrimEX(Word, TrimSymbols: string): string;

var

x, a, b: Integer;

begin

Result := Word;

if TrimSymbols = '' then

exit;

Word := Trim(word);

if length(word) = 0 then

exit;

x := 0;

repeat

x := x + 1;

until (pos(ansiuppercase(word[x]), ansiuppercase(TrimSymbols)) = 0)

or (x = length(word));

a := x;

x := length(word) + 1;

repeat

x := x - 1;

until (pos(ansiuppercase(word[x]), ansiuppercase(TrimSymbols)) = 0)

or (x = 1);

b := x;

word := copy(word, a, b - a + 1);

result := word;

end;

推荐分享