碰到这种情况:有一个字段为高度，字符型,如3m/m、50m/m、7cm、2"等,我如何得到3,50,7,2等整型的数字?

Question

碰到这种情况:有一个字段为高度，字符型,如3m/m、50m/m、7cm、2"等,我如何得到3,50,7,2等整型的数字?

Answer 1

var
  strValue,strRet:string;
  i:integer;
begin
  strRet := '';
  for i:=1 to length(strValue) do
  begin
    case strValue[i] of
     '0'..'9':
      strRet := strRet+strValue[i]; 
    end;  
  end
end;

Answer 2

补充:
strvalue := FieldByName('yourfiled').asstring;

Answer 3

var str,s:string;
    i:integer;
s:=YourField.astring;
for i:=1 to length(s)
   if ( ord(s[i])<ord('0') )or( ord(s[i])>ord('9') ) then break;
delete(s,i,length(s)-i+1);
result:=strtoint(s);