Pascal Help Needed

[androsovic]

Yea peeps,i wrote/writing a big program in Pascal for two reasons and it compiling sweet and ting but when i run it and i reading from file,it giving run-time error.When i try to save,it not writing to file but it saying so.Help!                    

[QDizzle]

yuh have the correct filename address                    

[androsovic]

yes,everything correct                    

[snake_eater]

look at d bottom of d page when u compile to d error and them u can move on!!!!!!!!!                    

[androsovic]

here is the code

PROGRAM SBA(INPUT,OUTPUT,CustFile,NewFile);
CONST
   FileName = 'C:Program FilesDVDFSCustRec.TXT';
   FileName2= 'C:Program FilesDVDFSRentalist.TXT';
   FileName3= 'C:Program FilesDVDFSInventory';
   TempFile = 'TEMP.TXT';
   TitleH =('              ***DVD FS v1.1***');
   Header = '------------- Main Menu --------------';
   Separator = '--------------------------------------';

TYPE
   CustomerRecord = RECORD
                     ID               :STRING[5];
                     Name,custstrt    :STRING[60];
                     Phno             :STRING[10];
                     City             :STRING[20];
                    END;


VAR
   NewFile, CustFile,Inventory,Rlist :TEXT;
   CustomerRec     :CustomerRecord;
   Title           :ARRAY [1..9] OF STRING[20];
   OneLine         :STRING[80];
   ID:STRING[5];
   Name,Phno,custstrt,city:STRING;

PROCEDURE AddRec(VAR NewFile, CustFile :TEXT;
                              Customer: CustomerRecord);
BEGIN
   ASSIGN(CustFile, FileName);
   RESET(CustFile);
   ASSIGN(NewFile, TempFile);
   REWRITE(NewFile);
  WHILE NOT EOF(CustFile) DO
      BEGIN
         READLN(CustFile,OneLine);
         WRITELN(NewFile,OneLine)
      END;
  WITH Customer DO
    BEGIN
      WRITE('Please enter customer ID: '); READLN(ID);
      WRITE('Name: ');               READLN(Name);
      WRITE('Phone Number: ');           READLN(phno);
      WRITE('Street Address: ');  READLN(Custstrt);
      WRITE('City: ');   READLN(City);
    END;
    WRITELN(NewFile, ID);
    WRITELN(NewFile, Name);
    WRITELN(NewFile, phno);
    WRITELN(NewFile, Custstrt);
    WRITELN(NewFile, City);
  CLOSE(NewFile);
  CLOSE(CustFile);
  ASSIGN(CustFile, FileName);
  REWRITE(CustFile);
  ASSIGN(NewFile, TempFile);
  RESET(NewFile);
  WHILE NOT EOF(NewFile) DO
    BEGIN
      READLN(NewFile,OneLine);
      WRITELN(CustFile,OneLine)
    END;
  CLOSE(NewFile);
  ERASE(NewFile);
  CLOSE(CustFile);
WRITELN('Record successfully stored');
WRITELN('Press any key to return to menu');
READLN;
END;

{ ------------------ Procedure DelRec --------------------- }
PROCEDURE DelRec(VAR NewFile, CustFile :TEXT;
                              Customer: CustomerRecord);
VAR
   tempno:STRING[5];
   Found:REAL;
BEGIN
   ASSIGN(CustFile, FileName);
   RESET(CustFile);
   ASSIGN(NewFile, TempFile);
   REWRITE(NewFile);
   WRITE('Please enter the customer ID to be deleted: ');
   READLN(tempno);
  WHILE NOT EOF(CustFile) DO
     BEGIN
       WITH Customer DO
         BEGIN
           READLN(CustFile, ID);
           READLN(CustFile, Name);
           READLN(CustFile, phno);
           READLN(CustFile, custstrt);
           READLN(CustFile, city);
           IF tempno <> ID THEN
             BEGIN
             WRITELN(NewFile, ID);
             WRITELN(NewFile, Name);
             WRITELN(NewFile, phno);
             WRITELN(NewFile, Custstrt);
             WRITELN(NewFile, City);
             END
       END
     END;
  CLOSE(NewFile);
  CLOSE(CustFile);
  ASSIGN(CustFile, FileName);
  REWRITE(CustFile);
  ASSIGN(NewFile, TempFile);
  RESET(NewFile);
  WHILE NOT EOF(NewFile) DO
    BEGIN
      READLN(NewFile,OneLine);
      WRITELN(CustFile,OneLine)
    END;
  CLOSE(NewFile);
  ERASE(NewFile);
  CLOSE(CustFile);
IF FOUND =1 THEN
  WRITELN('Customer ', tempno, ' successfully removed from file.');
  WRITELN('Press any key to return to menu');
  READLN;
IF FOUND = 0 THEN
    BEGIN
    WRITELN('Sorry, customer ID not found in file');
    WRITELN('Press any key to return to menu');
    END
END;

PROCEDURE ReadInv(VAR INVENTORY:TEXT);

BEGIN
   ASSIGN(Inventory, FileName3);
   RESET(Inventory);
   WHILE NOT EOF(Inventory) DO
      BEGIN
         WHILE NOT EOLN(Inventory) DO
            BEGIN
               READ(Inventory,OneLine);
               WRITE(Inventory)
            END;
         READLN(Inventory);
         WRITELN
      END;
  CLOSE(Inventory);
   WRITELN('Press ENTER to continue..');
   READLN
END;

PROCEDURE ReadRec(VAR CustFile :TEXT;
Customer :CustomerRecord);

VAR
   tempno    :STRING[11];
   Found     :INTEGER;

BEGIN
   Found := 0;
   ASSIGN(CustFile, FileName);
   RESET(CustFile);
   WRITELN;
   WRITE('Please enter the customer''s number: ');
   READLN(tempno);
   WHILE NOT EOF(CustFile) DO
     BEGIN
       WITH Customer DO
         BEGIN
           READLN(CustFile, ID);
           READLN(CustFile, Name);
           READLN(CustFile, phno);
           READLN(CustFile, custstrt);
           READLN(CustFile, city);

           IF tempno = ID THEN
             BEGIN
               WRITELN(TitleH);
               WRITELN(Title[1],ID);
               WRITELN(Title[2],Name);
               WRITELN(Title[3],phno);
               WRITELN(Title[4], custstrt);
               WRITELN(Title[5], city);
             END;
             Found := 1
       END
     END;
   CLOSE(CustFile);
   IF Found <> 1 THEN
     BEGIN
       WRITELN('Customer ID not found in file.');
       WRITELN('Please try again.');
       WRITELN
     END
END;

PROCEDURE RlistA (VAR NewFile, Rlist :TEXT);
VAR
ID,CUSTRNT:REAL;
dd1,mm1:INTEGER;
BEGIN
   ASSIGN(Rlist, FileName2);
   RESET(Rlist);
   ASSIGN(NewFile, TempFile);
   REWRITE(NewFile);
   WHILE NOT EOF(Rlist) DO
      BEGIN
         READLN(Rlist,OneLine);
         WRITELN(NewFile,OneLine)
      END;
BEGIN
WRITE('Please enter customer ID: ');        READLN(ID);
WRITELN('Please enter the DVD rented: ');   READLN(CUSTRNT);
WRITELN('Please enter projected return day number in the format DD: '); READLN(dd1);
WRITELN('Please enter projected return month number in the format MM: '); READLN(mm1);
END;
WRITELN(NewFile,ID);
WRITELN(NewFile,CUSTRNT);
WRITELN(NewFile,dd1);
WRITELN(NewFile,mm1);
CLOSE(NewFile);
CLOSE(Rlist);
ASSIGN(Rlist, FileName2);
REWRITE(Rlist);
ASSIGN(NewFile, TempFile);
RESET(NewFile);
  WHILE NOT EOF(NewFile) DO
    BEGIN
      READLN(NewFile,OneLine);
      WRITELN(Rlist,OneLine)
    END;
  CLOSE(NewFile);
  ERASE(NewFile);
  CLOSE(Rlist);
WRITELN('Record successfully stored');
WRITELN('Press any key to return to menu');
READLN;
END;

PROCEDURE RlistD(VAR NewFile, Rlist :TEXT);
VAR
   tempno :STRING[5];
   mm,mm1,dd,dd1,OVDY,OVMH,Found:INTEGER;
BEGIN
   ASSIGN(Rlist, FileName2);
   RESET(Rlist);
   ASSIGN(NewFile, TempFile);
   REWRITE(NewFile);
   WRITE('Please enter the customer ID to be deleted: ');
   READLN(tempno);
WHILE NOT EOF(Rlist) DO
      BEGIN
         READLN(Rlist,OneLine);
         WRITELN(NewFile,OneLine)
      END;
BEGIN
WRITELN('Please enter the current return day number in the format DD: '); READLN(dd);
WRITELN('Please enter the current return month number in the format MM'); READLN(mm);
OVDY := dd-dd1;
OVMH := mm-mm1;
WRITELN('This customer is overdue by',OVDY,'days and',OVMH,'months');
WRITELN('A negative number represents days before the due date ');
WRITELN('and a positive number represents days past');
END;
  CLOSE(NewFile);
  CLOSE(Rlist);
  ASSIGN(Rlist, FileName2);
  REWRITE(Rlist);
  ASSIGN(NewFile, TempFile);
  RESET(NewFile);
  WHILE NOT EOF(NewFile) DO
    BEGIN
      READLN(NewFile,OneLine);
      WRITELN(Rlist,OneLine)
    END;
  CLOSE(NewFile);
  ERASE(NewFile);
  CLOSE(Rlist);
  WRITELN('Record successfully removed from file.');
  WRITELN('Press any key to return to menu');
  READLN;
IF Found=0 THEN
         BEGIN
         WRITELN('Customer ID not found in file');
         WRITELN('Press any key to return to menu');
         END
END;

PROCEDURE RlistE(VAR NewFile, Rlist :TEXT);

VAR
tempno,CUSTRNT:STRING;
Found,mm1,dd1:INTEGER;
BEGIN
       Found :=0;
       ASSIGN(Rlist, FileName2);
       RESET(Rlist);
       ASSIGN(NewFile, TempFile);
       REWRITE(NewFile);
       WRITE('Please enter the customer ID of the record you wish to edit: ');
       READLN(ID);
   WHILE NOT EOF(Rlist) DO
      BEGIN
         READLN(Rlist,OneLine);
         WRITELN(NewFile,OneLine)
      END;
            IF tempno <> ID THEN
                 BEGIN
                 WRITELN('Sorry, ID not found');
                 END
               ELSE
                 BEGIN
                   Found:=1;
                   WRITELN('Please enter the updated information');
                   WRITELN('Please enter the DVD to be rented');
                   READLN(CUSTRNT);
                   WRITELN('Please enter projected return day number in the format DD: ');
                   READLN(dd1);
                   WRITELN('Please enter projected return month number in the format MM: ');
                   READLN(mm1);
                 END;
       CLOSE(NewFile);
       CLOSE(Rlist);
       ASSIGN(Rlist, FileName);
       REWRITE(Rlist);
       ASSIGN(NewFile, TempFile);
       RESET(NewFile);
       WHILE NOT EOF(NewFile) DO
         BEGIN
           READLN(NewFile, OneLine);
           WRITELN(Rlist, OneLine)
         END;
       CLOSE(NewFile);
       ERASE(NewFile);
       CLOSE(Rlist);
   IF Found =1 THEN
    WRITELN('The record list for customer',tempno,' is updated.');
 IF Found=0 THEN
     BEGIN
          WRITELN('Sorry but ',tempno,' is not found.');
          WRITELN
     END
END;
{ERROR!!!}{ ---------------- UpdateInv -------------------- }
PROCEDURE UpdateInv(VAR NewFile, Inventory :TEXT);

VAR
DTitle     :STRING;
Kounter,Ans  :INTEGER;
BEGIN
   ASSIGN(Inventory, FileName3);
   RESET(Inventory);
   ASSIGN(NewFile, TempFile);
   REWRITE(NewFile);
REPEAT
WRITELN('Press any number to contine except the number ''0'' which will end this procedure.');
READLN(Ans);
WHILE Ans<>0 DO
BEGIN
Kounter:=1;
WHILE NOT EOF(Inventory) DO
BEGIN
     WHILE NOT EOLN DO
           BEGIN
           REPEAT
               WRITE('Please enter new title:');
               READLN(DTitle);
               WRITELN(NewFile,DTitle);
               Kounter:= Kounter+1;
           UNTIL Kounter = Ans+1;
END;
  CLOSE(NewFile);
  CLOSE(Inventory);
  ASSIGN(Inventory, FileName3);
  REWRITE(Inventory);
  ASSIGN(NewFile, TempFile);
  RESET(NewFile);
  WHILE NOT EOF(NewFile) DO
    BEGIN
      READLN(NewFile,OneLine);
      WRITELN(Inventory,OneLine)
    END;
  CLOSE(NewFile);
  ERASE(NewFile);
  CLOSE(Inventory);
END;

WRITELN('Inventory successfully updated');
WRITELN('Press any key to return to menu');
READLN;
END
UNTIL Ans=0
END;

{ ---------------- UpdateRec -------------------- }
PROCEDURE UpdateRec(VAR NewFile, CustFile :TEXT;
Customer :CustomerRecord);

VAR
   tempno       :STRING[11];
   Found        :INTEGER;

BEGIN
   Found := 0;
   ASSIGN(CustFile, FileName2);
   RESET(CustFile);
   ASSIGN(NewFile, TempFile);
   REWRITE(NewFile);
   WRITE('Please enter the customer ID to be updated: ');
   READLN(tempno);
   WHILE NOT EOF(CustFile) DO
     BEGIN
       WITH Customer DO
         BEGIN
           READLN(CustFile, ID);
           READLN(CustFile, Name);
           READLN(CustFile, phno);
           READLN(CustFile, custstrt);
           READLN(CustFile, city);
           END;
           IF tempno <> ID THEN
             BEGIN
             WRITELN(NewFile, ID);
             WRITELN(NewFile, Name);
             WRITELN(NewFile, phno);
             WRITELN(NewFile, Custstrt);
             WRITELN(NewFile, City);
             END
     ELSE
     BEGIN
               Found := 1;
               WRITELN('Please enter the updated information:');
               WRITE('Please enter customer ID: ');
               READLN(ID);
               WRITE('Name: ');               READLN(Name);
               WRITE('Phone Number: ');           READLN(phno);
               WRITE('Street Address: ');  READLN(Custstrt);
               WRITE('City: ');   READLN(City);
               WRITELN(NewFile);
    END
   END;
  CLOSE(NewFile);
  CLOSE(CustFile);
  ASSIGN(CustFile, FileName2);
  REWRITE(CustFile);
  ASSIGN(NewFile, TempFile);
  RESET(NewFile);
  WHILE NOT EOF(NewFile) DO
    BEGIN
      READLN(NewFile,OneLine);
      WRITELN(CustFile,OneLine)
    END;
  CLOSE(NewFile);
  ERASE(NewFile);
  CLOSE(CustFile);

  IF Found =1 THEN
WRITELN('Customer ''', ID, ''' successfully updated.');
WRITELN('Press any key to return to menu');
READLN;
 IF Found<>1 THEN
    BEGIN
      WRITELN('The Customer ID ''', ID, ''' is not found.');
      WRITELN('Check the number and try again.');
      WRITELN
    END
  END;

PROCEDURE Menu;

VAR
   Option :INTEGER;

BEGIN
   WRITELN(TitleH);
   WRITELN(Header);
   WRITELN;
   WRITELN('1. Add a customer record.');
   WRITELN('2. Delete a customer record.');
   WRITELN('3. Edit a customer record.');
   WRITELN('4. Display a customer record.');
   WRITELN('5. Display Inventory.');
   WRITELN('6. Editing Inventory.');
   WRITELN('7. Rental List-Add a record.');
   WRITELN('8. Rental List-Edit a record.');
   WRITELN('9. Rental List-Delete a record.');
   WRITELN('10.Exit.');
   WRITELN(Separator);
   WRITE('Make a choice and press a number: ');
   READLN(Option);
   CASE Option OF
      1 : AddRec(NewFile, CustFile, CustomerRec);
      2 : DelRec(NewFile, CustFile, CustomerRec);
      3 : UpdateRec(NewFile, CustFile, CustomerRec);
      4 : ReadRec(CustFile, CustomerRec);
      5 : ReadInv(Inventory);
      6 : UpdateInv(NewFile,Inventory);
      7 : RlistA(NewFile, Rlist);
      8 : RlistE(NewFile, Rlist);
      9 : RlistD(NewFile, Rlist);
      10: Exit
   END;
   Menu
END;

{---------------------------------------------------------------}
BEGIN
   Title[1] := 'ID: ';
   Title[2] := 'Name: ';
   Title[3] := 'Phone Number: ';
   Title[4] := 'Street Address: ';
   Title[5] := 'City: ';
   Menu
END.                    

[unimatrix001]

eh boi, u still wit dat bullshit boi... hoss.... doh eva copy ting from dat learn pascal in 3 days book unless is absolutely necessary (an wen i say de book i mean cd too eh)                    

[Osiris]

thanx boy andro i have my SBA                    

[Ninja644]

HOOSSSSSS
Andro take dat off ASAP like Osiris say, men go use that for they SBA an ting. An u doh want dat to happen.......                    

[MisterX]

YUH ENCOURAGING PLAGERISM BOY                    

[snake_eater]

sticking to the topic...... andro u dont have a data base creation procedure that is why u cannot read a record ur program will just run but notin will store                    

[MisterX]

thanx boy andro i have my SBA

Yuh is a big thief. yuh feel i dont know who yuh is eh.
:kneel:                    

[cereal_killer]

i need some help. i got programmin question for cxc.
my it teacher can't teach for nothin.
was wonderin if any one could help me out here                    

[MisterX]

i need some help. i got programmin question for cxc.  
my it teacher can't teach for nothin.
was wonderin if any one could help me out here

Yeah sure I can help you I think!                    

[androsovic]

HAHA! at all copy that.That program had major errors in it which i fixed.And havign the program alone is not enough,u need the documentation and charting.I very sorry for the person who copied and pasted that as a SBA. May god help you                    

[unimatrix001]

eh yuh kno i woulda give yuh de source code for my programme... have nearly everyting in it... error correction, validation an shit. but i put real wratch in it                    

[butter_knife]

Lmfaoth @ osiris

look what sprangin commin to

i jus wonderin, i not doin Intergrated Tech. but thats Visual Basic right?                    

[androsovic]

no.pascal.hence the name of the thread. what is integrated tech?                    

[butter_knife]

intergrated technology, like computer studies