이충권 wrote:

> 아래에서 보듯이

> 1부터 20까지의 Integer 만을 받기 위해서

> Range Error를 Check하려고 합니다.

>

> {$R+}

> type TIsRange = 2..20;

> var Variable, Constraint: TIsRange;

> begin

> Variable := StrToInt(EditMask1.Text);

> Constraint := StrToInt(EditMask2.Text);

> end

>

> Error는 잘 Check가 되는데,

> 잘못 입력되었을 때, 화면에 나타나는 작은 윈도우가

> 어떻게 생성되는지 모르겠습니다.

> 예를 들면, EditMask1에 1을 넣으면 작은 윈도우가

> 뜨면서 그 속에 "Range Check Error"라는 Message가 뜹니다.

> 저는 이것을 "Enter 2 to 20"로 고치고 싶습니다.

> 방법이 있습니까?

>

> 부탁 드립니다.

>

>

이충권님 보세요!!



Try ~ Except 구문을 이용하면 해결할 수 있습니다!!



{$R+}

type TIsRange = 2..20;

var Variable, Constraint: TIsRange;

begin

try

Variable := StrToInt(EditMask1.Text);

Constraint := StrToInt(EditMask2.Text);

except

ShowMessage('Enter 2 to 20');

end;

end



그럼 즐거운 코딩되세요....