線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1084
推到 Plurk!
推到 Facebook!

遮罩該如何判斷已全部填滿?

答題得分者是:pceyes
Reiji
初階會員


發表:30
回覆:57
積分:32
註冊:2008-06-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-08-22 16:57:49 IP:61.219.xxx.xxx 訂閱
我試著用了一個maskedit
其editmask為『!9 9 9 9;1;_』
也就是呈現『_ _ _ _』這樣的輸入方塊
我該如何判斷使用者已經把四個數字都輸入?
我試著寫下面這樣的判斷
但是不管我輸入幾個button1.Enabled都還是會變成True?
才剛輸入第一個就已經變成True了@@"

[code delphi]
if (copy(Test.Text,1,1)<>'') and
(copy(Test.Text,3,1)<>'') and
(copy(Test.Text,5,1)<>'') and
(copy(Test.Text,7,1)<>'') then
button1.Enabled:=True;

[/code]
------
永遠都是新手
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-08-22 18:27:31 IP:220.141.xxx.xxx 訂閱

[code delphi]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, Buttons;

type
TForm1 = class(TForm)
MaskEdit1: TMaskEdit;
BitBtn1: TBitBtn;
procedure MaskEdit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
if length(trim(MaskEdit1.text)) = 4 then begin
BitBtn1.Enabled := true;
end;
end;

end.

[/code]
------
努力會更接近成功
Reiji
初階會員


發表:30
回覆:57
積分:32
註冊:2008-06-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-08-25 09:16:08 IP:61.219.xxx.xxx 訂閱
哇...我竟然沒有想到要用length
我真是問了一個笨問題
感謝感謝~
------
永遠都是新手
系統時間:2024-05-03 0:18:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!