Pascal and Delphi

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

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Aug 2009

Posts: 20

Reputation: especta is an unknown quantity at this point

Solved Threads: 0

especta

Offline

Newbie Poster

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

Nov 3rd, 2009

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)

 Help with Code Tags 
 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)

 Help with Code Tags 
 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.

•

Join Date: Oct 2009

Posts: 10

Reputation: quaifp1 is an unknown quantity at this point

Solved Threads: 3

quaifp1

Offline

Newbie Poster

2 solutions

Nov 3rd, 2009

•

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)
Help with Code Tags

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)
Help with Code Tags

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;

•

Join Date: Aug 2009

Posts: 20

Reputation: especta is an unknown quantity at this point

Solved Threads: 0

especta

Offline

Newbie Poster

Nov 3rd, 2009

•

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...

•

Join Date: Feb 2009

Posts: 462

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 112

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Nov 4th, 2009

I made a pascal source code

 Help with Code Tags 
 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}

Be a good part of the community.Don't be ungrateful.
If you ask something on the forum and you got the right answer then mark as solved!
If my opinion helped to you a lot then sometimes give reputation point to me.
I'm just a pascal programmer from Hungary.
Farewell...

•

Join Date: Oct 2009

Posts: 10

Reputation: cao is an unknown quantity at this point

Solved Threads: 4

cao

Offline

Newbie Poster

Nov 4th, 2009

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;