将指定字符串后面的'0'字符截去[原创

2016-02-19 18:22 1 1 收藏

下面请跟着图老师小编一起来了解下将指定字符串后面的'0'字符截去[原创,精心挑选的内容希望大家喜欢,不要忘记点个赞哦!

【 tulaoshi.com - 编程语言 】

{-------------------------------------------------------------------------------
    过程名:    TForm1.RTrimZero
    作者:      王洪生(Kevin)
    日期:      2004.12.22
    参数:      const AValue: string
    返回值:    string
    功能:      将指定字符串后面的0字符截去
  -------------------------------------------------------------------------------}
  function TForm1.RTrimZero(const AValue: string): string;
  var
    nLen : Integer;
    i    : Integer;
    strTemp: string;
  begin
    if (AValue = '') then Result := '';
    nLen := Length(AValue);
    strTemp := AValue;
    for i:= nLen downto 1 do
    begin
      if (AValue[i] = '0') then
        strTemp[i] := ' '
      else
        Break;
    end;
    Result := strTemp;
  end;

来源:https://www.tulaoshi.com/n/20160219/1617453.html

延伸阅读
Delphi中的字符串 ——摘自网络 一:各种字符串  字符串是Object Pascal所有数据类型中最有用的类型。许多函数以字符串为传递参数。由于在Delphi中字符串的定义和使用有各种方式,包括Pascal中典型的字符串(String),Delphi支持的长字符串(ANSIString),类似于C语言的字符数组(Array of Char),指向字符的...
标签: Web开发
a href="1.htm"251/a 怎么用JS把251替换为 span style='background-color: #99FF99'251/span [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
SELECT   SUBSTR (T.RPT_ID,                 INSTR (T.RPT_ID,',',1,C.LV)+ 1,                 INSTR (T.RPT_ID,',',1,C.LV + 1)- (INSTR (T.RPT_ID,',',1,C.LV)+ 1)) &n...
标签: ASP
  '*************测字符串长度************** Function CheckStringLength(txt) txt=trim(txt) x = len(txt) y = 0 for ii = 1 to x if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) 255 then '如果是汉字 y = y + 2 else y = y + 1 end if next CheckStringLength = y End Function '************* 截取字符串 ************** f...
答:import java.util.*; class test { public static void main(String[] args) { String str1="001,002,003,004,006",str2 = "001,002,005"; String str=""; TreeSet ts = new TreeSet(); StringTokenizer st = new StringTokenizer(str1,","); while (st.hasMoreTokens()) { ts.add(st.nextToken()); } st = new StringToken...

经验教程

563

收藏

91
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部