急急！截取数字问题！在线等！！！

Question

有个 EDIT 让用户输入，用户输入的内容，肯定 先是数字然后再到汉字或字母
即 ：12瓶 或 100G件 或  1KG箱 1234盒
我只需要 截取 左边的数字就行了！
谢谢！

Answer 1

你可以把这段代码放在你的处理过程中，从而获取那些数字Var i:integer;
    S:string;
For i:=1 to length(Edit1.text) do 
begin
  if Not((copy(Edit1.text,i,1)>='0') and (copy(Edit1.text,i,1)<='9')) then
     begin
       S:=copy(Edit1.text,1,i-1)
       break;
     end;    
end;

Answer 2

谢谢 gulf1234(小顾) 
非常感谢！