델파이에서 숫자 구분하고 싶을때 있죠

델파이로 개발하다 보면 숫자만 구분하고 싶을 때가 있습니다. 저는 일단 델파이 버전은 6.0 입니다. 그전에는 델파이 개발한적이 없어서 강력함을 전혀 몰랐는데 요번 기회에 개발하면서 느낌점이 많습니다. 확장성 좋습니다. 각종 컴포넌트를 추가로 설치만 하면 모두 사용 가능합니다. 물론 유료 컴포넌트도 있어서 욕심이 많으신 개발자분들은 구입해서 써봐도 좋을 듯 합니다. 하지만 저는 기본 컴포넌트만으로도 만족하기에 그렇게 사용하고 있습니다.

 

숫자를 구분하고 싶을 때 아래 소스코드 쓴 것처럼

따로 별도로 함수를 생성하셔서 쓰이고 싶은 부분에서 함수를 호출하는 식으로 코딩하면 되겠습니다.

함수 호출할 때는 주의할 것이 반드시 스트링값을 넘겨줘야 한다는 것!

 

function NumCheck(ps : String) : Boolean;
Var
  i : integer;
  S : String;
begin
  S := ps;
  for i := 1 to Length(S) do
  begin
    if S[i] IN ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-', '.'] then
      begin
        Result := True;
       end
    else
      begin
        Result := False;
        Exit;
      end;
  end;
end;