//---------------------------------------------

지나가다 혹시나 도움이 될까 해서요..

지금 숫자만 입력하면 되나요? 영문자는 입력안되게만 하면 되나요?

숫자및 하이픈,del key만 입력하게 하려면 다음 이벤트에 다음과

같이 넣고 한번 해보세용...



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not ((key in ['0'..'9','-']) or (Key = #8)) then Key := #0;

end;



//---------------------------------------------



서광진 wrote:

> 저기요 edit.text 에서요

> 값을 입력했을때 그러니까 년도를요 1988-04-04 이런식으로 입력해야하는데요

> aaaa-aa-aa 이렇게 하면 자꾸 뻥나거든요 이것을 어떻게 해야 처리할수 있을쥐

> 에구 지송합니다.

> 아시는분 있으시며 꼭좀 알려주세요

> 시작되는 월요일 입니다. 한주 좋은 하루하루 되세요

> 공백처리는 했구요 copy로 - 처리도 했습니다. 위에것만 처리하면 좋겠는데

> 아 참 그리고 날짜체크하는 함수도 있으면 알려주시면 감사하겠습니다.

> (strtoint(copy(edit1.text,6,2))=0)or(strtoint(copy(edit1.text,6,2))>12) or

> (strtoint(copy(edit1.text,9,2))=0)or(strtoint(copy(edit1.text,9,2))>31) or

> (strtoint(copy(edit2.text,6,2))=0)or(strtoint(copy(edit2.text,6,2))>12) or

> (strtoint(copy(edit2.text,9,2))=0)or(strtoint(copy(edit2.text,9,2))>31) then

> 이런식으로 처리했는데 함수로 하면 참 좋을텐데요

> 에구 지송합니다.

지나가는이.. wrote:

> //---------------------------------------------

> 지나가다 혹시나 도움이 될까 해서요..

> 지금 숫자만 입력하면 되나요? 영문자는 입력안되게만 하면 되나요?

> 숫자및 하이픈,del key만 입력하게 하려면 다음 이벤트에 다음과

> 같이 넣고 한번 해보세용...

>

> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

> begin

> if not ((key in ['0'..'9','-']) or (Key = #8)) then Key := #0;

> end;

>

> //---------------------------------------------

>

> 지나가는이 님 정말 감사합니다.

문자들은 들어가지 못하게 막는거군요

이런 방법도 있군요 감사감사 감사감사

^___^ 정말 감사합니다.

지나가는이.. wrote:

> //---------------------------------------------

> 지나가다 혹시나 도움이 될까 해서요..

> 지금 숫자만 입력하면 되나요? 영문자는 입력안되게만 하면 되나요?

> 숫자및 하이픈,del key만 입력하게 하려면 다음 이벤트에 다음과

> 같이 넣고 한번 해보세용...

>

> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

> begin

> if not ((key in ['0'..'9','-']) or (Key = #8)) then Key := #0;

> end;

>

> //---------------------------------------------

>

에구 너무 감사합니다.

이렇게 알려주시는 분들이 있어 저희 허접들은 살구있습니다.

한번 시도해보고 되면 다시 글을 남기겠습니다.

꼭 행복하세요