DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: deliping
今日帖子: 2
在线用户: 1
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
女 rover (rover) ★☆☆☆☆ -
普通会员
2003/3/7 19:57:00
标题:
怎样去除字符串中的所有空格,谢了 浏览:1504
加入我的收藏
楼主: 怎样去除字符串中的所有空格,谢了
1 怎样去除空格  Trim()好像不行?
2 怎样才能做到根据鼠标点击的列名排序????
 谢谢!!!!
----------------------------------------------
-
作者:
女 shang53 (shang53) ★☆☆☆☆ -
盒子活跃会员
2003/3/7 20:51:00
1楼: 1:
function DeleteBlank(So : string): string;
var
  De : string;
  i : integer;
begin
  for i := 1 to length(So) do
  begin
    if copy(so,i,1)<>' ' then De := De+copy(So,i,1
  end;
  Result := De;
end;
2:不知道你說的列名存在哪個控件中﹖
----------------------------------------------
-
作者:
男 hongama (hongama) ★☆☆☆☆ -
盒子活跃会员
2004/3/24 16:38:49
2楼: 用trim()就可以了
----------------------------------------------
-
作者:
男 shiro (比卡丘) ★☆☆☆☆ -
普通会员
2004/3/24 16:56:11
3楼: trim是去除首尾空格吧?简单的用

StringReplace(STR,'' '','''',[rfReplaceAll]);

来做

排序用上面的搜索找找或狗狗找找吧
----------------------------------------------
巧克力PIKA
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行62.5毫秒 RSS