김지혜 wrote:

> 제가 질문했던 것은 어떤 변수의 값을 받았는데 그것이 문자인지 숫자인지 확인을 해 볼려고 하는 것입니다. 제가 워낙 초보라서 그러니 양해해 주시고 아시면 저에게 알려주세요. 감사합니다



김지혜님 보세요....



변수에 대하여 문자인지 숫자인지 판단할 경우 StrToIntDef 함수를 쓰시면

될 것 같은데요..

StrToIntDef 함수는 주어진 문자열을 정수로 변환하지 못해을 경우 Default 숫자로

변환합니다..



function StrToIntDef(const S: string; Default: Integer): Integer;



procedure TForm1.Button2Click(Sender: TObject);

var nTemp : integer;

begin

nTemp := StrToIntDef(Edit1.Text, 99999);



If nTemp = 0 Then ShowMessage('문자 입력')

Else ShowMessage('숫자 입력')



end;



그럼 즐거운 하루 되세요....

김지혜 wrote:

> 제가 질문했던 것은 어떤 변수의 값을 받았는데 그것이 문자인지 숫자인지 확인을 해 볼려고 하는 것입니다. 제가 워낙 초보라서 그러니 양해해 주시고 아시면 저에게 알려주세요. 감사합니다



아~~! 그렇군요..

그렇담 이렇게 해봐요.



정수변수 X;



try

X := StrToInt(받은 변수); //strtoint() 스트링 -> 숫자

출력(이것은 수);

except

출력(이것은 수아님); //try...except... 예외처리

//에~ 그러니깐 숫자로 변환하는데 문제가(예외가)

//발생하면 except 아래 코드 실행;



근데 Timer 신뢰도에 관한 내질문은 아직 답변이...흑흑흑 ㅜㅜ.





===============================================================================

저의글 위의 답변을 보면 StrToIntDef()함수가 있는데.. 전 미처 몰랐었네요

그런 함수가 있으면 사용해 보시고 전달값 중의 두번째 인자값 99999는 뭔지

알려주시면 감사 감사.