Q&A
- 에디트박스에 1-100사이의 숫자만 입력?
에디트박스에 숫자만 입력하게는 했는데
1~100사이의 숫자만 입력할려고 하는데 어떻게 해야하는지
검색해도 못찾겠고 초보라 잘모르겠네요.
답변주시면 대단히 감사하겠습니다.
1~100사이의 숫자만 입력할려고 하는데 어떻게 해야하는지
검색해도 못찾겠고 초보라 잘모르겠네요.
답변주시면 대단히 감사하겠습니다.
7
COMMENTS
-
-
저는 이걸 함수로 만들려고 하거든요.
100이하만 입력할수 있고
아예 100이상은 사용자가 입력못하게요.
왜냐하면 에디트박스뿐 아니라
스트링그리드의 특정컬럼에도 적용해야 하거든요.
방법이 없을까요?
-
function MaxHund(Value : integer):boolean;
begin
if (Value >= 1) and (Value <= 100) then Result := True
else Result := False;
end;
일케해서 호출하믄 안되나여?
Edit박스의 경우 OnChange에
if not MaxHund(StrToInt(Edit1.Text)) then
ShowMessage('입력된 값이 100보다 크거나 1보다 작습니다');
이런식으로..ㅡㅡ;;
넘 간단한가?
원하시는 답이 이게 아닌가여?
-
먼저 에디트박스속성중에 MaxLength를 3으로 해주시고요..
KeyPress이벤트에서 숫자만 입력되도록 코딩을 하시면 될것 같습니다.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
Accept : Boolean;
begin
Accept := Key in ['0'..'9', #8, #13, #127];
if Not Accept then Key := #0;
end;
-
숫자만 입력되게는 했어요.
전 100이하의 숫자만 입력가능하게 하고 싶거든요.
100이상이면 메시지를 보여주는게 아니라
아예 100이상의 숫자는 입력을 못하게 하고 싶은데
잘 안되네요..
-
숫자만 입력하게 했으믄 쉬운거 같은데염...
case strtoint(Edit2.text) of
1..100 : showmessage('들어왔네');
else begin
showmessage('잘못 입력하셨습니다');
Edit2.SetFocus;
end;
end;
이렇게 하믄 되지 않을까염 ~~ ^^
-
100이상이면 메시지나 기타처리를 하는게 아니라
아예 100이상의 숫자를 사용자가 입력 못하게 하고 싶거든요.
(NOTICE) You must be logged in to comment on this post.
-
-
김수경•2002.06.10 18:56OnClick Event와 연결된 Button1Click를 직접 불러 주시면 됩니다. 즐거운 하루 되세요!
-
박송휘•2002.06.11 05:23.......................
-
최용일•2002.06.12 12:36안녕하세요. 최용일입니다. 다른 프로그램도 가능합니다. 님이하신 코딩에서 Button13.Handle대신에 ...
-
-
- 구현민
- •
- 2002.06.10 18:15
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2002.06.10 19:35퀵레포트 버그입니다.. 예전에 Usesnet 뒤지다가 그 버그 수정한 콤포넌트를 찾았었는데 이름이 기억이 ...
-
- 김태훈
- •
- 2002.06.10 12:00
- 7 COMMENTS
- /
- 0 LIKES
에디트박스에 숫자만 입력하게는 했는데 1~100사이의 숫자만 입력할려고 하는데 어떻게 해야하는지 검색해도 못찾겠고 초보라 잘모르겠네요. 답변주시면 대단히 감사하겠습니다.-
김수경•2002.06.10 19:02여러가지 방법이 있지만 제가 추천하는 방법은 Samples Tab에 있는 CSpinEdit1 Component를 사용하는 겁니...
-
김태훈•2002.06.11 11:12저는 이걸 함수로 만들려고 하거든요. 100이하만 입력할수 있고 아예 100이상은 사용자가 입력못하게요....
-
성더기•2002.06.11 19:49function MaxHund(Value : integer):boolean; begin if (Value >= 1) and (Value <= 1...
-
머슴•2002.06.10 19:00먼저 에디트박스속성중에 MaxLength를 3으로 해주시고요.. KeyPress이벤트에서 숫자만 입력되도록 ...
-
김태훈•2002.06.11 11:08숫자만 입력되게는 했어요. 전 100이하의 숫자만 입력가능하게 하고 싶거든요. 100이상이면 메시지를 보...
-
김도형•2002.06.10 18:56숫자만 입력하게 했으믄 쉬운거 같은데염... case strtoint(Edit2.text) of ...
-
김태훈•2002.06.11 11:10100이상이면 메시지나 기타처리를 하는게 아니라 아예 100이상의 숫자를 사용자가 입력 못하게 하고 싶거...
-
- 정경주
- •
- 2002.06.10 09:19
- 1 COMMENTS
- /
- 0 LIKES
-
☆영민★•2002.06.10 10:19저도 아는게 별루 없지만.. 혹시.. chr(13) 으로 하면 되지 않을까요?? 엔터(Enter / Return)키 값이 1...
-
- 안중태
- 2002.06.10 05:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍작새
- 2002.06.10 05:25
- 0 COMMENTS
- /
- 0 LIKES
-
- ☆영민★
- •
- 2002.06.10 04:36
- 3 COMMENTS
- /
- 0 LIKES
-
머슴•2002.06.10 23:20델파이 실행프로그램이 그리 크지가 않습니다..(제가 느끼기에는) 혹시 다른 원인이 있지 않을까 생...
-
티모니•2002.06.10 21:25Use CASE.. statments rather than IF..ELSE.. clauses. &nb...
-
티모니•2002.06.10 21:12우선은 프로그램을 만드실때여.. 필요 없는건 uses 에서 빼주시구여... 프로그램을 기능들을 dll로 따로...
-
- 나그네
- •
- 2002.06.09 20:51
- 3 COMMENTS
- /
- 0 LIKES
-
장명선•2002.06.10 01:53Write 를 쓰세요... 이것은 길이만큼 보내는 명령입니다. 프로퍼티를 참조하세요 예) ComPort.Wri...
-
나그네•2002.06.10 03:54고맙습니다. 답변해주셔서.. 근데요. ComPort.Write('ABCD', 4); 이거랑여 ComPort.WriteStr('ABCD'); ...
-
장명선•2002.06.10 05:35문자형 전송에서 Null값이 나오면 Null값에서 중단이 됩니다. 그래서 특정 길이만큼을 전송하라고 명령을 ...
-
- 이동준
- •
- 2002.06.09 11:45
- 1 COMMENTS
- /
- 0 LIKES
-
장명선•2002.06.10 01:51BDE->Configuration->Drivers->Native DLL32 -> SQLORA8.DLL VENDOR INIT -> OCI.DLL ...
-
- 이재욱
- 2002.06.09 09:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 장명선
- •
- 2002.06.09 09:25
- 1 COMMENTS
- /
- 0 LIKES
-
신석기•2002.07.23 10:04버젼과 관계가 있습니다. 설치된 ocx보다 버젼이 높다면 해당 경로에서 다운 받아 설치합니다. 옵션에서 ...
-
- 김장훈
- •
- 2002.06.09 07:49
- 2 COMMENTS
- /
- 0 LIKES
-
깨구락지•2002.06.09 08:29myStr:=StringReplace(trim(tStr),' ','',[rfReplaceAll]) 공백은 무조건 제거합니다.
-
김정용•2008.07.31 00:51깨구락지 님 감사합니다.
-
- 오현주
- •
- 2002.06.09 06:24
- 2 COMMENTS
- /
- 0 LIKES
-
KDDG_zzang•2002.06.09 08:12여기 가면 자세한 정보를 얻으실 수 있습니다. www.oracleclub.com 상단 메뉴에 보면 oracle > orac...
-
오현주•2002.06.09 23:54답변은 고맙습니다.. 그런데 저는 dataset의 query로 이용해서 데이터베이스에 접근을 해서 커서를 이동...
-
- 이소진
- 2002.06.09 04:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 박종민
- •
- 2002.06.09 03:39
- 3 COMMENTS
- /
- 0 LIKES
-
미소나눔•2002.06.09 05:01직접 컴포넌트로 만드셔야 합니다. 아래처럼 새로운 Unit에 코딩하시구.. TNewEdit = class(TEdit) .... ...
-
박종민•2002.06.10 16:27델파이 잘 못하는 애들한테 왜 이런걸 내주는지 답변은 잘 봤는데 포기입니다... ㅡ.ㅡ
-
깨구락지•2002.06.11 20:30컴포넌트 만들기가 어려우시면 만드러진 컴포넌트를 사용하십시오. 자료실에 CurrencyEdit 컴포넌트를 이...
-
- ☆영민★
- •
- 2002.06.09 02:54
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2002.06.09 04:20var HexiDecimal : String ; ----------------------------------- &...
-
- 이승근
- •
- 2002.06.09 01:24
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2002.06.09 02:04정확한지는 모르지만... 파라독스에서 인라이뷰가 되는지 잘모르겠네요...
-
- 채기주
- •
- 2002.06.09 00:55
- 1 COMMENTS
- /
- 0 LIKES
-
권광일•2002.06.15 02:01DirectX 의 기능중에 DES 기능이 있습니다. 그중에 TimeLine 이라는 것이 있는데, 그 조작을 XML 로도 ...
-
- 이동현
- •
- 2002.06.09 00:23
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_zzang•2002.06.09 00:491. DataSet.RecordCount 로 체크하시던가 2. SELECT COUNT(1) FROM 출석부 WHERE 이름 = '테스트' 여...
-
- 송재진
- •
- 2002.06.09 00:17
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2002.06.09 04:26님께서 질문하신 내용은 그리 어렵지 않게 델파에서 주는 트리뷰 컴포넌트로 할수 있습니다. 특정 노드에...
Samples Tab에 있는 CSpinEdit1 Component를 사용하는 겁니다.
CSpinEdit1.MinValue := 1;
CSpinEdit1.MaxValue := 100;
CSpinEdit1.Value := 초기값;
위와 같이 하면 MinValue 와 MaxValue 값 사이의 값(숫자)만 입력 되며
입력된 값은 Value에서 읽어 오시면 되여~
즐거운 하루 ~~~