need fast reply from pascal programmer plz

[99shassan]

Hi guys, I got a problem again. I have to go back to the old program I was creating. I need to add an accept phone number code in there which i have at the end


BEGIN
writeln('Enter Customer Phone Number:'); {Ask to enter Phone number}
readln(phonenumber);

end;


However, I want to add a loop in there so that it will go back if a letter is entered as a phone number.

Can anyone help?

[4play]

Its been a while since i used pascal but you dont seemed to have declared the phonenumber variable.

its also a bad idea to have it as an interger since people like to add in dashes and spaces into phone numbers. store it as a string.

sorry no idea if there is a function to look at an int and see if it contains letters.

[99shassan]

i need it so that there can't be any letters. but havn't succeeded :(

[4play]

have you tried declaring phonenumber as an int and sees what happens with letters ?
does it crash?
has your teacher given you a function to use in previous examples to examine an int for chars ?
just looking through some of my old work now to see if i have done something similar.

edit: i would imagine the psudeo code is something like




while phonenumber contains chars do

begin
print "input phone number"
input "phone number"
end


that should loop around until the phonenumber contains no chars but i dont have a clue what the function is you need to use.

[JimmyP]

This is in Delphi (Object Pascal) but you should get the idea. Bascially, declare the phone number as an integer, then trap the exception that would occur if they enter a character.

If you want to go back up so they have to enter it again, just use a label.



program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
phonenumber :integer;

begin
writeln('Enter Customer Phone Number:');
try
readln(phonenumber);
except
writeln('Oops, you enter something other than 0-9');
end;
writeln('done');
readln;

end.