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

数据挖掘研究院