| 導購 | 订阅 | 在线投稿
分享
 
 
 

將指定字符串後面的"0"字符截去[原創]

來源:互聯網網民  2006-12-17 07:43:09  評論

將指定字符串後面的"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;

 
特别声明:以上内容(如有图片或视频亦包括在内)为网络用户发布,本站仅提供信息存储服务。
 
將指定字符串後面的"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;
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有