procedure GetNum(TextS:string;StartPos:integer);
var
i:integer;
begin
for i:=StartPos to length(TextS) do
if TextS[i]<>' ' then sun:=sun+TextS[i] else break;
n:=StrToInt{Для делфи или val для паскаля}(sun);
end;
var
i:integer;
begin
Text:='Текст 452';
for i:=0 to 9 do
begin
n:=pos(IntToStr(i),Text);
if n>0 then
if Text[n-1]=' ' or Text[n-1]='' then
begin
GetNum(Text;n);
break;
end;
//в n будет число.
end;
|