Solved

File Access Denied error

Posted on 2000-02-22
3
203 Views
Last Modified: 2010-04-16
Since I deleted my last question, because of the need to read more to understand what the experts give out, I have come across this particular problem several times. I put clip Of my code here which goes as follows-

writeln('save these details (Y/N)?);
readln(reply);
if (reply='y') or (reply='Y')
then
   Newrec.TranNo:= Newrec.TranNo+1;
   Newrec.InDel:=false;
   write(Inco,Newrec);<-'file access denied' error flagged here
 writeln('do you wish to continue?(Y/N)');
  readln(reply);
until (reply='n') or (reply='N');
close(Inco);
end;

The file is opened up as usual at the beginning of the procedure and the contents of the file seeked ie;

seek(InCo,Filesize(InCo)-1);
if not eof(InCo)
then
read(InCo,Newrec);

then the data is entered, when the request is made to save, then the file access error aboughts the program.
Why should this be as the record has to be written to file; write(InCO,Newrec);
Thanks for your help...chrisbee.



0
Comment
Question by:chrisbee
3 Comments
 
LVL 12

Accepted Solution

by:
Hypo earned 100 total points
ID: 2549418
The reason you get that error is most probably because your file is opened as READ-ONLY. i don't know how you open your file but this is how I'm dooing it.
And I can write records to a file without getting that error.

uses crt,dos;

var NewRec : NewRecType;
    InCo : File of NewRecType;

begin
 assign(InCo,'FileName.Any');
 Reset(InCo);
 Seek(InCo,FileSize(InCo)-1);
 if not EOF(InCo) then Read (InCo,NewRec);
 {...}
 Write(InCo,NewRec);
 Close(InCo);
end.

This piece of code works on my computer. Try it on yours and see if it works... if it does, check out what differs between yours and mine!

regards, Hypo
0
 
LVL 48

Expert Comment

by:dbrunton
ID: 2549423
Presumably you have something like

type
  DataRecord = record
    TranNo : integer;
    InDel : boolean
  end;

var
 Inco : file of DataRecord;
 EndOfTheFile : longint;
 TheData, NewRec : DataRecord;

assign(Inco, 'FILENAME');
reset(Inco);


EndOfTheFile := FileSize(Inco) div SizeOf(TheDataRecord);
Seek(Inco, EndOfFile);   {* this gives you end of file *}



{* code should be something like this *}

writeln('save these details (Y/N)?);
readln(reply);
repeat
  begin
      if (reply='y') or (reply='Y') then
         begin
            Newrec.TranNo := Newrec.TranNo+1;
            Newrec.InDel := false;
            write(Inco, Newrec);  <-'file access denied' error flagged here
          end;
      writeln('do you wish to continue?(Y/N)');
      readln(reply);
  end;
until (reply='n') or (reply='N');
0
 

Author Comment

by:chrisbee
ID: 2555665
HiHypo!

Nice to hear from you again. Thanks for your help. I tried the code you suggested and the error has gone. I applied this to the other files inwhich the same error arose and they too are now ok. I can now get on with the final procedure in my prog. I shall have a go myself but it seems likely I shall have to return to 'EE' with yet another question but this time I shall post up the code here for all to see. My Thanks to all those who offered help- I wish I could give you all some points

Best wishes.........chrisbee.
0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
printers log data 3 358
default value in Delphi component 2 512
code issue 8 126
find a node in VST 2 68
Learn how the use of a bunch of disparate tools requiring a lot of manual attention led to a series of unfortunate backup events for one company.
An article on effective troubleshooting
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

816 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now