maskEdit

[baran_bataravat]

در برنامه دلفي از از maskEdit استفاده کردم که مي خواهم رشته وارد شده در maskEdit کنترل شود و رشته معتبر وارد شود به اين صورت که 4 کرکتر اول عدد و بعد يک کرکتر / و بعد سه کرکتر عدد و بعدش کرکتر / و بعد از آن به تعداد دلخواه عدد باشد Input Mask را چطور بايد تعريف کنم؟؟؟؟؟
رشته معتبر به طور مثال:
326775/007/5677 مي باشد

[hossein_h62]

سلام
به این صورت : 999999/999/9999

[baran_bataravat]

سلام
به این صورت : 999999/999/9999
اين مال موقعي که من تعداد کرکتر ثابتي را کنترل کنم . ولي من مي خوام که بعد '/ ' دومي تعداد رقم ها نا محدود باشند !!!!

[darrudi]

اين مال موقعي که من تعداد کرکتر ثابتي را کنترل کنم . ولي من مي خوام که بعد '/ ' دومي تعداد رقم ها نا محدود باشند !!!!

سلام دوست من maskedit واسه کاره شما محدوده

[baran_bataravat]

سلام دوست من maskedit واسه کاره شما محدوده
من چطور ميتونم اين کنترل را انجام بدم. اگه شما راه حلي دارين ممنون مي شم اگه راهنماييم کنيد!!!!!

[Felony]

یک نمونه کد براتون نوشتم ، کد زیر رو در رویداد KeyPress شئ Edit مورد نظر بنویسید :

if Key= #8 then
exit;
if not (Key in ['0'..'9']) then
Key:= #0
else begin
if Length(Edit1.Text)=4 then
begin
Edit1.Text:= Edit1.Text+ '/';
Edit1.SelStart:= 5;
end;
if Length(Edit1.Text)=8 then
begin
Edit1.Text:= Edit1.Text+ '/';
Edit1.SelStart:= 9;
end;
end;