Delphi Выделить подстроку, которая соответствует записи целого числа

[rager06]

помогите, пожалуйста c Delphi!
вот задание:

Дана строка, состоящая из букв, цифр, запятых, точек, знаков “+” и “-“. Выделить подстроку, которая соответствует записи целого числа (т.е. начинается со знака “+” или “-“ и внутри подстроки нет букв, запятых и точек).

[rrrFer]

язык хоть укажите, а-то моих экстрасенсорных способностей не хватает

[rager06]

Сообщение от rrrFer

язык хоть укажите, а-то моих экстрасенсорных способностей не хватает

упс! извиняюсь! забыл! язык Delphi

[baster128]

type
SetSim=Set of '0'..'1';
var i:integer; St1,StRez:string;
Tch:SetSim;
begin
Tch:=['.',',']
for i:=0 to Length(Str1)-1 do
if Str1[i] in Tch then StRez:=StRez+' ' else
StRez:=StRez+St1[i]
end.
Может и начудил здесь но как-то так...

[NikLik]

function getInt(str: string): string;
var
  i, j: integer;
begin
  for i := 1 to length(str) - 1 do
  begin
    result := '';
    if ((str[i] = '+') or (str[i] = '-')) then
    begin
      result := str[i];
      for j := i + 1 to length(str) do
      begin
        if (str[j] < '0') or (str[j] > '9') then
          break;
        result := result + str[j];
      end;
    end;
    if length(result) > 1 then
      break;
  end;
end;