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