TIP: Click on subject to list as thread! ANSI
echo: delphi
to: ALL
from: MAJED AL-HAJ
date: 1997-12-06 12:52:00
subject: PASCAL

This message was originally addressed to ALL
and a carbon copy was sent to you.
                    ----------------------------------------
Hello every body.
-
I faces some problem with my program wich i created.
i made this program by Turbo Pascal 7.
my problem is..
**************************************************************
* ID  * NAME                          *  MARK    *   RANK    *
**************************************************************
*     *                               *          *           *
*     *                               *          *           *
*     *                               *          *           *
*     *                               *          *           *
*     *                               *          *           *
*     *                               *          *           *
*     *                               *          *           *
**************************************************************
here i can make the begining of the Curser by this GOTOXY
but the reading become like that when i start to write
in the ID rank 844 i need to stop the reading when i enter 3 digit and
not accept more...
**************************************************************
* ID  * NAME                          *  MARK    *   RANK    *
**************************************************************
* 443534543543545454353454354354353454353453454353454354545555
345435435435435435345435455           *          *           *
*     *                               *          *           *
How i can create the Ending of the Curser for each rank in this table
and such as make the program just accept in ID rank just 5 digit
and in the NAME rank accept in the reading just 40 char..
**************************************************************
* ID  * NAME                          *  MARK    *   RANK    *
**************************************************************
* 323 * MAJED DJFJFJ FJDJFJ DFJDFJFJD * 99999999 *     A     *
*     *                               *          *           *
I tried to solve this problem.!.
Can any body tell me how i can do this....
Seconed probelm..
in the VAR section write this
         Number:INTEGER;
and i write this command in the body of program.
READ(NUMBER);
if i enter a char. like this "dd" and not Number like "44" take me this
message "RUN-TIME ERROR" and exit form the program.
How i can make the program accept just Number and don't accept and Char.
--
Thank you for your Help.
--
With my BestRegrads.
                          Majed Al-Haj
                ---------------------------------
                E-Mail:Majed.al-haj&jetnetbbs.com
cc: ALL
    ALL
    ALL
    ALL
    ALL
    ALL
    ALL
    ALL
--- Silver Xpress Mail System 5.4P1
--- PCBoard (R) v15.3/M 2
---------------
* Origin: þ JetNet BBS,Saudi Arabia þ (2:542/250)
* Origin: þ [JetNet] System, Kingdom of Saudi Arabia, Jeddah þ (2:542/250)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.