김영진 wrote:

> Edit박스에 있는 값이 숫자인지 문자인지를 알고 싶습니다.

> 어떻게 알 수 없을까요.

> 달랑 한자가 아니라 여러개의 문자나 숫자가 있을 때 숫자인지 문자인자 알고 싶습니다.

> 예를 들자면 Edit박스에 123456 이라고 쓰여있으면 이것이 문자인지 숫자인지를 알고 싶습니다. 물론 Edit 박스에 넣을때는 문자열로 넣어겠지만 원래의 값이 무엇인지...



// 아래는 숫자 문자열의 검사 루틴

function IsStrANumber(NumStr : string) : bool;

begin

result := true;

// 숫자가 들어있는 문자열을 숫자로 변환할때 예외가 발생하면 False

try

StrToInt(NumStr); // 실수이면 StrToFloat() 사용

except

result := false;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

if IsStrANumber(Edit1.Text) then

ShowMessage(Edit1.Text)

else

ShowMessage('숫자가 아닙니다');

end;