假如在一edit1.text中判斷檢核只能入1 or 2 or 3 要如何檢核??

------
ivankuo

Inisde the OnKeyPress event:

if not Key in ['1','2','3'] then
    Key := #0;

Maybe you can use a TMaskEdit?

引言: Inisde the OnKeyPress event:

if not Key in ['1','2','3'] then
    Key := #0;

Maybe you can use a TMaskEdit?

前輩你人真好``又遇見了 小弟初學不好意思在同一個地方發問那ㄇ多次 這個問題跟剛剛我問的inputQuery有關西 如果是inputquery所傳回的值，那怎辦?? 我現在是把接收的變數值，判定長度不能超過1且轉換成數值不能大於3 可是我想知道還有沒有其他方式ㄋ??

ivankuo你好: procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char); begin if not Key in ['1','2','3'] then Key := #0; Edit1.Maxlength:=1;//這裡是宣告Edit1只能有一格輸入 end;

------
======================
昏睡~
不昏睡~
不由昏睡~

自己用一個 TForm, 上面放個 TEdit, 再放兩個 TButton, 就是自訂的 InputQuery 啦!    -- Everything I say is a lie.

I think you should better implement a dialog instead of using the function InputQuery since it can give you more control. If you want to use InputQuery, here is an example:

var
    s1,s2: string;
    d: boolean;
begin
    s1 := '1';
    d  := False;
    while not d do begin
        s2 := s1;
        if InputQuery('DATA1','A',s2) then begin
            if StrToIntDef(s2,99)<=3 then begin
                d  := True;
                s1 := s2; end
            else
                ShowMessage('Invalid value.');
            end
        else
            d := True;
    end;
end;

感謝各位前輩熱心指導 william前輩你的方式我已經了解了 感謝

------
ivankuo