从delphi字符串中删除前导零

概述德尔福7 如何删除delphi字符串中的前导零？ 例： 00000004357816 function removeLeadingZeros(ValueStr: String): Stringbegin result:= end; function removeLeadingZeros(const Value: string): string;var i: Integer;begin 德尔福7

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

例：

00000004357816

function removeLeadingZeros(ValueStr: String): Stringbegin 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在原始版本中确定的错误.

总结

以上是内存溢出为你收集整理的从delphi字符串中删除前导零全部内容，希望文章能够帮你解决从delphi字符串中删除前导零所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。