提取字符问题（急，急）

Question

这有一个别人写的，转给你：
function GetNumFromStr(const str: String;const hex:boolean=false): String;
var
 i:integer;
 charset:Set of char;
begin
if hex then
 charset:=['0'..'9','a'..'f','A'..'F','.']
else
 charset:=['0'..'9','.'];
for i := 1 to Length(str) do
  begin
    if (str[i] in charset) then
      result:= result + uppercase(str[i]);
  end;
end;可以取得十六进制的数字！可以包含小数点，但你必须保证只有一个小数点！

Answer 1

你的要求太不确定了，要是“abc12,23,s34,45lk45hsd903450hf903wjhs090”那该怎么办，
你先把你的问题说清楚，你要提取数字的字符格式是否固定等。 

Answer 2

用pos funtion
  找字符“4”: i:=pos('4',string) 返回的i就是4在字符串string中的位置，然后再用copy function来提取吧
  可以吗？别吝啬呀！：）

Answer 3

用pos funtion
  找字符“4”: i:=pos('4',string) 返回的i就是4在字符串string中的位置，然后再用copy function来提取吧
  可以吗？别吝啬呀！：）