摘要： Function Setstring(cString:string):string; {提取数字} VAr i:integer; str:string; begin str:=''; For i:=1 to length(cString) do begin if Pos(cString[i],'01 阅读全文