从delphi字符串中删除前导零

发布时间：2020-12-15 10:09:47 所属栏目：大数据来源：网络整理

导读：德尔福7 如何删除delphi字符串中的前导零？例： 00000004357816 function removeLeadingZeros(ValueStr: String): Stringbegin result:= end; 解决方法 function removeLeadingZeros(const Value: string): string;var i: Integer;begin for i := 1 to Leng

德尔福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在原始版本中确定的错误.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!