将指定字符串后面的'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;