本文整理自网络,侵删。
// 用法:ShowMessage (TrimEx('<MegaTeg>', '<>'));
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;
相关阅读 >>
Delphi获取其他进程中listbox和combobox的内容
Delphi研究之驱动开发篇(六)--利用section与用户模式程序通讯(上)
Delphi ado 连接 excel (附excel各个版本的版本号)
Delphi richedit 的scrollbar自动向下滚动
更多相关阅读请进入《Delphi》频道 >>