从delphi字符串中删除前导零

德尔福7

如何删除delphi字符串中的前导零？

例：

00000004357816

function removeLeadingZeros(ValueStr: String): String
begin
 result:= 
end;

解决方法

function removeLeadingZeros(const Value: string): string;
var
  i: Integer;
begin
  for i := 1 to Length(Value) do
    if Value[i]<>'0' then
    begin
      Result := copy(Value,i,MaxInt);
      exit;
    end;
  Result := '';
end;

根据具体要求,您可能希望修剪空白.我没有这样做,因为这个问题没有提到.

更新

我修复了Serg在原始版本中确定的错误.

原文地址：https://www.jb51.cc/delphi/102706.html