• Registered: 2014-02-17
  • Posts: 365

Topic: How to set use lower(a-z),(0-9) only in textbox

How To set value in edit username and password register use character lower(a-z) and (0-9) only ?
and length between 8 and 256 character
for user easy to remember old username and password

Help Me Please !

Sample
abcd01234589010  Message (OK)
aBcd01234589010 Message (Not OK ! Please Try Again)
a*cd01234589010  Message (Not OK ! Please Try Again)
a  cd01234589010 Message (Not OK ! Please Try Again)
a_cd01234589010 Message (Not OK ! Please Try Again)
aBcd01234589010 Message (Not OK ! Please Try Again)
abc123                      Message (Not OK ! Please Try Again)

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: How to set use lower(a-z),(0-9) only in textbox

Hello,


In this way you can filter no need symbols

procedure Form1_Edit1_OnKeyPress (Sender: string; var Key: Char);
begin
   If not ((Key in ['a'..'z']) or (Key in ['0'..'9']))  then Key:=#0;
end;

To check length:

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    if (Length(Form1.Edit1.Text) < 8) or (Length(Form1.Edit1.Text) > 256) then
    begin
        ShowMessage('Text should be between 8 and 256 character');
    end;
end;
Dmitry.
  • Registered: 2014-02-17
  • Posts: 365

Re: How to set use lower(a-z),(0-9) only in textbox

Dmitry.
Thank You and Thank You very much
^__^

My Visual Database : I Love You
Easy For Beginner Student For Me