Ad:

Pascal and Delphi Discussion Thread
Marked Solved
Views: 1249

Nov 3rd, 2009

Haw to allow to enter number only from number 1 to 65535.

Expand Post »

i have problem to allow enter only from 1 to 65535 bicouse
example if enter 10000,2000 is ok but enter 99 not.

hire 1 example (not working)

Pascal and Delphi Syntax (Toggle Plain Text)
If somthing.Text > '65535 'then
ShowMessage(' you enter biger Number from 65535');
Exit;
If somthing.Text > '65535 'then
ShowMessage(' you enter biger Number from 65535');
Exit;

hire 2 example (not working)

Pascal and Delphi Syntax (Toggle Plain Text)
var
  result : Integer;
  string1: String;
  string2: String;
begin
string1:='65535';
string2:= somthing.Text;
result := AnsiCompareStr(string1, string2);
if result < 0 then ShowMessage(string1+' < '+string2);
var
  result : Integer;
  string1: String;
  string2: String;
begin
string1:='65535';
string2:= somthing.Text;
result := AnsiCompareStr(string1, string2);
if result < 0 then ShowMessage(string1+' < '+string2);

please help haw to solve this.
Thanks.

Similar Threads

Enter Only Number In DataGridView in C#
Number Guessing Game in C++
Insert a number in an array in C++
ordered number in C++
Need help displaying when user enters negative number? in C++

especta

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

24 posts
since Aug 2009

Permalink

Nov 3rd, 2009

2 solutions

Click to Expand / Collapse Quote originally posted by especta ...

i have problem to allow enter only from 1 to 65535 bicouse
example if enter 10000,2000 is ok but enter 99 not.

hire 1 example (not working)
Pascal and Delphi Syntax (Toggle Plain Text)
If somthing.Text > '65535 'then
ShowMessage(' you enter biger Number from 65535');
Exit;
If somthing.Text > '65535 'then ShowMessage(' you enter biger Number from 65535'); Exit;
hire 2 example (not working)
Pascal and Delphi Syntax (Toggle Plain Text)
var
  result : Integer;
  string1: String;
  string2: String;
begin
string1:='65535';
string2:= somthing.Text;
result := AnsiCompareStr(string1, string2);
if result < 0 then ShowMessage(string1+' < '+string2);
var result : Integer; string1: String; string2: String; begin string1:='65535'; string2:= somthing.Text; result := AnsiCompareStr(string1, string2); if result < 0 then ShowMessage(string1+' < '+string2);
please help haw to solve this.
Thanks.

[DELPHI]

1. Convert your string to a number and test that.

2. create the following function and pass the string as

IF Between(Atextbox.Text,1,65535)
THEN MessageDlg('Thats OK',MtInformation,[MbOK],0)
ELSE MessageDlg('Bad Number',MtInformation,[MbOK],0);

You could also vary the Value by type and overload this to do any numbers

FUNCTION Between(Value : String;Low,High : LongInt) : BOOLEAN;
VAR
N : Integer;
Begin
TRY
N := StrtoInt(Value);
RESULT := ((N >= Low) AND (N <= High));
EXCEPT ON EConvertError DO
RESULT := FALSE;
End;
End;

quaifp1

Reputation Points: 11

Solved Threads: 3

Newbie Poster

Offline

10 posts
since Oct 2009

Permalink

Nov 3rd, 2009

Re: Haw to allow to enter number only from number 1 to 65535.

Click to Expand / Collapse Quote originally posted by quaifp1 ...

[DELPHI]

1. Convert your string to a number and test that.

2. create the following function and pass the string as

IF Between(Atextbox.Text,1,65535)
THEN MessageDlg('Thats OK',MtInformation,[MbOK],0)
ELSE MessageDlg('Bad Number',MtInformation,[MbOK],0);

You could also vary the Value by type and overload this to do any numbers

FUNCTION Between(Value : String;Low,High : LongInt) : BOOLEAN;
VAR
N : Integer;
Begin
TRY
N := StrtoInt(Value);
RESULT := ((N >= Low) AND (N <= High));
EXCEPT ON EConvertError DO
RESULT := FALSE;
End;
End;

thanks to replay (FUNCTION is ok i have test it ) but i got strange agan i can enter example 2000,23222, but if enter 88 i got error...

especta

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

24 posts
since Aug 2009

Permalink

Nov 4th, 2009

Re: Haw to allow to enter number only from number 1 to 65535.

I made a pascal source code

pascal Syntax (Toggle Plain Text)
 
program sablon;
 
uses crt;
 
type range = 1..65535;
 
const ok = 'ok.';
      error = 'error';
      min = 1;
 
var one:longint;
    two:range;
    user,temp:string;
 
function converter(x:string):string;
var code:integer;
begin
     two:=65535;
     {$I-}
     val(x,one,code);
 
     if (ioresult <> 0) then begin
        converter:=error;
        exit;
     end;
     if (code <> 0) then begin
        converter:=error;
        exit;
     end;
     if (one > two) or (one < min) then converter:=error else converter:=ok;
     {$I+}
end;
 
begin
     clrscr;
     temp:=error;
     while temp <> ok do begin
           write('please enter a number from 1 to 65535: ');
           readln(user);
           temp:=converter(user);
           writeln(temp);
     end;
 
     readln;
end.
{created by FlamingClaw 2009}
program sablon;

uses crt;

type range = 1..65535;

const ok = 'ok.';
      error = 'error';
      min = 1;

var one:longint;
    two:range;
    user,temp:string;

function converter(x:string):string;
var code:integer;
begin
     two:=65535;
     {$I-}
     val(x,one,code);

     if (ioresult <> 0) then begin
        converter:=error;
        exit;
     end;
     if (code <> 0) then begin
        converter:=error;
        exit;
     end;
     if (one > two) or (one < min) then converter:=error else converter:=ok;
     {$I+}
end;

begin
     clrscr;
     temp:=error;
     while temp <> ok do begin
           write('please enter a number from 1 to 65535: ');
           readln(user);
           temp:=converter(user);
           writeln(temp);
     end;

     readln;
end.
{created by FlamingClaw 2009}

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

Permalink

Nov 4th, 2009

Re: Haw to allow to enter number only from number 1 to 65535.

var
xx:Integer;
begin
try
xx:=strtoint(something.text);
if xx<1 then showmessage('number too small') else
if xx>65535 then showmessage('number too big') else
Showmessage('number accepted');
except
showmessage('Not a valid number');
end;
end;

cao

Reputation Points: 11

Solved Threads: 5

Newbie Poster

Offline

12 posts
since Oct 2009

Permalink

Nov 4th, 2009

Big Thanks

BIG Thanks for replay to:
quaifp1
cao
FlamingClaw

i have solved .........

especta

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

24 posts
since Aug 2009

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Pascal and Delphi Forum Timeline: Creating Simple Login Screen In DevPas

Next Thread in Pascal and Delphi Forum Timeline: runtime error as IOresult<>0

DaniWeb Message

Cancel Changes

User Name
Password