欢迎您访问本站首页笑话数码汽车珠宝手机购车首饰美妆装修厨房科普编程导购空间导购百科知道词典繁体王朝搜索

当前位置: 王朝网络 >> delphi >> 将指定字符串后面的"0"字符截去[原创] jiang zhi ding zi fu chuan hou mian de "0" zi fu jie qu [ yuan chuang ]

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

来源:互联网网民宽屏版评论

2006-12-17 07:43:09

将jiang指zhi定ding字zi符fu串chuan后hou面mian的de"0"字zi符fu截jie去qu[原yuan创chuang]

将jiang指zhi定ding字zi符fu串chuan后hou面mian的de"0"字zi符fu截jie去qu[原yuan创chuang] {-------------------------------------------------------------------------------

过guo程cheng名ming: TForm1.RTrimZero

作zuo者zhe: 王wang洪hong生sheng(Kevin)

日ri期qi: 2004.12.22

参shen数shu: const AValue: string

返fan回hui值zhi: string

功gong能neng: 将jiang指zhi定ding字zi符fu串chuan后hou面mian的de0字zi符fu截jie去qu

-------------------------------------------------------------------------------}

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;

【原文】

点击展开全文

特别声明：以上内容(如有图片或视频亦包括在内)为网络用户发布，本站仅提供信息存储服务。

相关文章▶ 没有找到您想要的？点此查看更多相关文章

将指定字符串后面的"0"字符截去[原创] 将指定字符串后面的"0"字符截去[原创] {------------------------------------------------------------------------------- 过程名: 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;