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


本文整理自网络,侵删。

 
// 用法: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 richedit接受消息的问题

Delphi 声明指令 调用左右

Delphi xe5实现通过tmemorystream将一个unicodestring写入到一个unicode文本文件

Delphi写com+的心得体会

Delphi 蓝牙连接打印机演示

Delphi 中文字符串函数问题rightstr

Delphi 判断是否为文件名

Delphi winexec 执行cmd

Delphi 获取listview1鼠标所在位置的行名称

Delphi html document接口获取网页中所有图片

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...