delphi 去除左边零

function  trimLeftZero(src:string):string;
begin
    while copy(src,1,1)='0' do
     src:=copy(src,2,length(src)-1);
    Result := src;
end;

posted @   夏天的西瓜君  阅读(1187)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示