초보 wrote:

> 4시간동안 헤맸어요..머리가 무척나쁜건지 일주일 봤는데 모르겠네요.

> 폼에서 디자인하면 폼에 에디트박스(입력) 버튼2개 리스트박스1개

> 이렇게 해서 에디트박스에 이름입력하고 버튼1을 누르면 이름이 메세지박스에 출력되고

> 숫자를 입력하면 문자를 넣으라는 메세지가 뜨게 할려구요.그리구 2번째 버튼은 이름을 입력하고 2번째 버튼을 누르면 리스트박스에 5번 출력하게되구요..

> 꼭좀 알려주세요..소스좀..

> 제가생각한것은..

> var

> i : string

> begin

> i := editinput.text;

> if 문을 어떻게 해야 할지 모르겠어요 여러번 해봤는데,,흑흑...

> 그리구 이렇게 해봤는데 나오긴 하더라구요..맞는건지도 모르겠습니다..

> var

> i,code:integer;

>

> begin

> val(edit1.text, i, code);

> if code<>0 then

> showmessage('저는' +edit1.text+ '입니다')

> else

> showmessage('문자를입력하세요');

> 제가 원하던대로 나오기는 한데, 숫자즉 integer형의 범위를 벗어나면 문자로 받아져요.

> 꼭 좀 알려주세요..이렇게 정중히 부탁합니다. 너무 졸려서 잘려고요..벌써 5시 10이네요.오늘도 날샜어요..

>





안녕하세요?

아주간단한 문제가시고 고생을 하시는군요

제가 알고있는 방법을 가르쳐드리지요

만약 에디트박스1 에 값을 입력했다면...

다음과같이 하시면 됩니다



StrToIntDef(edit1.text,0);



StrToIntDef 함수는 입력된 값이 숫자인지 문자인지 구분해주지요

두개의 인자중에서 첫번째가 입력한 값이고 두번재는 이폴트값으로...

입력된 값이 숫자이면 해당숫자를 리턴하고 문자일 경우에는

디푤트로 입력한 값을 넘겨줍니다

보통은 디폴트값으로 0 을 입력하지요

위 함수를 호출해서 리턴값이 0 인지 아닌지를 체크하면 될겁니다

그럼 이만....

초보 wrote:

> 4시간동안 헤맸어요..머리가 무척나쁜건지 일주일 봤는데 모르겠네요.

> 폼에서 디자인하면 폼에 에디트박스(입력) 버튼2개 리스트박스1개

> 이렇게 해서 에디트박스에 이름입력하고 버튼1을 누르면 이름이 메세지박스에 출력되고

> 숫자를 입력하면 문자를 넣으라는 메세지가 뜨게 할려구요.그리구 2번째 버튼은 이름을 입력하고 2번째 버튼을 누르면 리스트박스에 5번 출력하게되구요..

> 꼭좀 알려주세요..소스좀..

> 제가생각한것은..

> var

> i : string

> begin

> i := editinput.text;

> if 문을 어떻게 해야 할지 모르겠어요 여러번 해봤는데,,흑흑...

> 그리구 이렇게 해봤는데 나오긴 하더라구요..맞는건지도 모르겠습니다..

> var

> i,code:integer;

>

> begin

> val(edit1.text, i, code);

> if code<>0 then

> showmessage('저는' +edit1.text+ '입니다')

> else

> showmessage('문자를입력하세요');

> 제가 원하던대로 나오기는 한데, 숫자즉 integer형의 범위를 벗어나면 문자로 받아져요.

> 꼭 좀 알려주세요..이렇게 정중히 부탁합니다. 너무 졸려서 잘려고요..벌써 5시 10이네요.오늘도 날샜어요..

>





function IsAlpha(str:string):boolean;

begin

try

StrToInt(str);

result:=false;

except

result:=true;

end;

end;

조금은 무시한 방법이되 숫자인지 확실하게 구분할 수 있습니다.



function numbercheck(s : string) : boolean;

var

i : integer;

begin

result := true;

for i := 1 to length(s) do

begin

if not s[i] in [0..9, '-'] then

begin

result := false;

exit;

end;

end

end;



이와 같이 하면됨 단 i가 1부터 인지 0부터 인지 정확히 모름

그리고 숫자로 인정해야 하는 문자가 더 있는지 검사해야 함 ',','.' 그리고 정확히 위치에 입력되는지 등 추가로 체크해야 하는데. 아마 거기 까지는 원하지 안는 것 같은아 이만 줄임

좋은 하루...

초보 wrote:

> 4시간동안 헤맸어요..머리가 무척나쁜건지 일주일 봤는데 모르겠네요.

> 폼에서 디자인하면 폼에 에디트박스(입력) 버튼2개 리스트박스1개

> 이렇게 해서 에디트박스에 이름입력하고 버튼1을 누르면 이름이 메세지박스에 출력되고

> 숫자를 입력하면 문자를 넣으라는 메세지가 뜨게 할려구요.그리구 2번째 버튼은 이름을 입력하고 2번째 버튼을 누르면 리스트박스에 5번 출력하게되구요..

> 꼭좀 알려주세요..소스좀..

> 제가생각한것은..

> var

> i : string

> begin

> i := editinput.text;

> if 문을 어떻게 해야 할지 모르겠어요 여러번 해봤는데,,흑흑...

> 그리구 이렇게 해봤는데 나오긴 하더라구요..맞는건지도 모르겠습니다..

> var

> i,code:integer;

>

> begin

> val(edit1.text, i, code);

> if code<>0 then

> showmessage('저는' +edit1.text+ '입니다')

> else

> showmessage('문자를입력하세요');

> 제가 원하던대로 나오기는 한데, 숫자즉 integer형의 범위를 벗어나면 문자로 받아져요.

> 꼭 좀 알려주세요..이렇게 정중히 부탁합니다. 너무 졸려서 잘려고요..벌써 5시 10이네요.오늘도 날샜어요..

>

초보 wrote:

> 4시간동안 헤맸어요..머리가 무척나쁜건지 일주일 봤는데 모르겠네요.

> 폼에서 디자인하면 폼에 에디트박스(입력) 버튼2개 리스트박스1개

> 이렇게 해서 에디트박스에 이름입력하고 버튼1을 누르면 이름이 메세지박스에 출력되고

> 숫자를 입력하면 문자를 넣으라는 메세지가 뜨게 할려구요.그리구 2번째 버튼은 이름을 입력하고 2번째 버튼을 누르면 리스트박스에 5번 출력하게되구요..

> 꼭좀 알려주세요..소스좀..

> 제가생각한것은..

> var

> i : string

> begin

> i := editinput.text;

> if 문을 어떻게 해야 할지 모르겠어요 여러번 해봤는데,,흑흑...

> 그리구 이렇게 해봤는데 나오긴 하더라구요..맞는건지도 모르겠습니다..

> var

> i,code:integer;

>

> begin

> val(edit1.text, i, code);

> if code<>0 then

> showmessage('저는' +edit1.text+ '입니다')

> else

> showmessage('문자를입력하세요');

> 제가 원하던대로 나오기는 한데, 숫자즉 integer형의 범위를 벗어나면 문자로 받아져요.

> 꼭 좀 알려주세요..이렇게 정중히 부탁합니다. 너무 졸려서 잘려고요..벌써 5시 10이네요.오늘도 날샜어요..

>



전 예전에 이런 식으로 하면 될꺼 같은데 참고만 하세요..



var

i,code:integer;



begin

try

StrToInt(edit1.text);

except

showmessage('문자를입력하세요');

end;

showmessage('저는' +edit1.text+ '입니다');

end;



뭐 integer범위 때문에 문제라면 위에서 StrToInt를 StrToCurrency정도로 하면 않될까요??