[Aivan_2008]

Написал функцию извлечения числа из строки:

Код:

function IsNum(c:Char):Boolean;
begin
 If Ord(c)>=Ord('0') then
 begin
  If Ord(c)<=Ord('9') then
  begin
   IsNum:=True
  end else
   Isnum:=false;
 end else
  IsNum:=false;
end;

Function  ExtractInteger(S:String):Integer;
 var
 i:Integer;
 k:Integer;
 s1:String;
 s2:String;
begin
 for i:=0 to Length(S) do
 begin
  If IsNum(S[i]) then
  begin
    SetLength(s2,1);
    s2[1]:=s[i];
    s1 := s1 + s2;
  end;
 end;
 k:=StrToInt(s1);
 ExtractInteger:=k;
end;

Теперь понадобилось, чтоб если между числами есть символы, то возвращало массив чисел, каждое отдельно.

И еще, как в проверить одну символьную строку на входждение в другую?