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

核心提示：{--- 过程名: TForm1.RTrimZero 作者: 王洪生(Kevin) 日期: 2004.12.22 参数: const AValue: string 返回值: string 功能: 将指定字符串后面的0字符截去---}function TForm1.RTrimZero(const

{-------------------------------------------------------------------------------
  过程名:　  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;