delphi 去除左边零

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