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