delphi之字符串截取

如：000043213000   截取后：432130

delphi 代码：

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);