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

[wave_f]

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

[广州接入]

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;

[广州接入]

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

[qinmaofan]

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