用智慧点亮人生

摘要： 如：000043213000 截取后：432130delphi 代码：var ii:integer; svalue:varchar(255);sPatientId:='000043213000';sValue := Copy(sPatientId, 1, 10) ; for ii:=1 to Length(sValue) do begin if sValue[ii]<>'0' then begin Break; end; end; sValue:= Copy(sValue, ii, 10-ii+1); 阅读全文