function trimLeftZero(src:string):string;
begin
while copy(src,1,1)='0' do
src:=copy(src,2,length(src)-1);
Result := src;
end;
转载于:https://www.cnblogs.com/yangxuming/p/6726507.html
function trimLeftZero(src:string):string;
begin
while copy(src,1,1)='0' do
src:=copy(src,2,length(src)-1);
Result := src;
end;
转载于:https://www.cnblogs.com/yangxuming/p/6726507.html