var
i:integer;
s :string;
begin
for i:=1 to length(edit1.Text) do
begin
s:=copy(edit1.Text,i,1);
if pos(s,'0123456789') <>0 then
showmessage(s);
end;end;
i:integer;
s :string;
begin
for i:=1 to length(edit1.Text) do
begin
s:=copy(edit1.Text,i,1);
if pos(s,'0123456789') <>0 then
showmessage(s);
end;end;
For example :
Str := '第11行';
要得到STR中属于'0'-'9'范转内的字符。