Q&A

  • edit에 대해...
조회하는데 있어 edit에 정수의 값만 들어가게 하고

실행을 했을때 edit에 정수의 값이 들어가면 조회가 되고

정수값이 아닌 다른값이 들어가면 에러메세지가 나오게 할려면

어떻게 해야 되나요

1  COMMENTS
  • Profile
    최용일 2000.03.18 23:55
    다음과 같이 해보세요...



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

    begin

    if Byte(Key) = vk_Return then

    조회;

    else if not (Key in ['0'..'9']) then

    begin

    Key := #0;

    ShowMessage('Error');

    end;

    end;



    이윤환 wrote:

    > 조회하는데 있어 edit에 정수의 값만 들어가게 하고

    > 실행을 했을때 edit에 정수의 값이 들어가면 조회가 되고

    > 정수값이 아닌 다른값이 들어가면 에러메세지가 나오게 할려면

    > 어떻게 해야 되나요