關於如何截取字符串的問題,請幫忙???

[jakefj]

我想在字符串中截取出數字,並把截取出來的數字轉換成數值型.
例如:'1014895axd'截取出1014895.(一般都是數字在前,字符在后)
lg:'1214569xfa'截取出'1214569'.(一般都是數字在前,字符在后)

[noil0125]

var
s:string;
i:integer;
begin
s:=edit1.Text;
i:=1;
while s[i] in ['0'..'9'] do
begin
showmessage(s[i]);
inc(i);
end;
edit2.Text:=copy(s,1,i-1);