Chinaunix首页 | 论坛 | 博客
  • 博客访问: 13030265
  • 博文数量: 1293
  • 博客积分: 13501
  • 博客等级: 上将
  • 技术积分: 17974
  • 用 户 组: 普通用户
  • 注册时间: 2011-03-08 18:11
文章分类

全部博文(1293)

文章存档

2019年(1)

2018年(1)

2016年(118)

2015年(257)

2014年(128)

2013年(222)

2012年(229)

2011年(337)

分类: SQLite/嵌入式数据库

2011-05-05 19:28:20

1、dyli向你讲解trim()函数说明

  Trim函数最伟大的作用就是去掉头和尾的空格!!

使用前:

s=‘ a ’

使用后:

Trim(s)=‘a’

 

 2、dyli的trim()函数案例设计证明

 

(1)、窗体文件设计

image 

image  

 

(2) trim()函数有史以来最经典代码片断

  1. var
  2.   Form1: TForm1;
  3.   tmptext :char='a';

  4. implementation

  5. {$R *.dfm}

  6. procedure TForm1.Button1Click(Sender: TObject);
  7. begin
  8.   if Label1.Caption=tmptext then
  9. //这里不加trim()函数,则空格a空格 != a

  10.       ShowMessage('the two char is equal')
  11.   else
  12.       ShowMessage('the two char is not equal');
  13. end;

  14. procedure TForm1.Button2Click(Sender: TObject);
  15. begin
  16.   if trim(Label1.Caption)=tmptext then 
  17. //这里加trim()函数,则a=a
  18.     ShowMessage('the two char is equal')
  19.   else
  20.       ShowMessage('the two char is not equal');
  21. end;

 

3、trim()函数案例运行效果图

 image

 

image           

阅读(2984) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~