[델파이] 문자에서 숫자만 추출

// 문자에서 숫자만 추출하는 함수

function FindNumber(Target: string): string;

var

 i, nCnt, dLen: Integer;

 dStr: string;

begin

  dLen := Length(Target);

  for i := 1 to dLen do begin

    if not(Target[i] in['0'..'9']) then Continue;

    for nCnt := i to dLen do begin

      if not(Target[nCnt] in['0'..'9']) then Continue;

      dStr := dStr + Target[nCnt];

    end;

    Result := dStr;

    Break;

  end;

end;