Q&A

  • TEdit 박스에서 문자가 아닌 숫자만 입력하고싶을때....
입력박스인 Edit에서 키누를때 문자가 아닌숫자만을 입력하고 싶을때..

-------- ㅋㅋ 제목과 같은 내용이네...  -----------

글쿠 혹시...

procedure input_Check(Cmd : String) : String;

function input_Check(Cmd : String) : String;
-- 이건 함수처리라는 것은 알고있는데 자세한 사용방법은 모르겠져여!!

procedure 와 function 의 차이점을 좀 알고 싶습니다.

우선 젤로 중요한 부분은 위의글인 Edit에서 숫자만을 입력하는 문제입니다.



이 게시물을
3  COMMENTS
  • Profile
    최은석 • 2002.11.22 19:57
    procedure 는 반환값이 없고
    function은 반환값이 있지여...

  • Profile
    최병철 • 2002.11.22 18:31
    아래의 코딩 내역을 참고 하세요


    procedure TfmSam_Sale_Amt.edSale_DateKeyPress(Sender: TObject; var Key: Char);
    begin
            // #25-왼쪽이동키, #08-BackSpace키, #13-Enter키
           if Key in ['0'..'9','-',#25,#08,#13] then
                   //폼의 타이틀 바의 Caption 에 들어갈 문자열임.
                    Caption := '오류가 발생 하였읍니다.'
            else
            begin
                    ShowMessage('잘못 입력하셨습니다');
                    Key := #0;
            end;

            if    Key = #13  then
            begin
                    SelectNext(Sender as Twincontrol,True, True);
                    Key := #0;
            end;
          
    end;



  • Profile
    최은하 • 2002.11.22 20:38
    고맙슴다.
←First Page
808 809 810 811 812 813 814 815 816 817
Last Page→
한델 로그인 하기