Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!cs.utexas.edu!asuvax!noao!ncar!gatech!prism!gt0652b
From: gt0652b@prism.gatech.EDU (I don't know man, he was just here)
Newsgroups: comp.lang.pascal
Subject: Re: File Locking In Turbo Pascal v6.0
Message-ID: <27400@hydra.gatech.EDU>
Date: 26 Apr 91 12:02:45 GMT
References: <1991Apr26.032900.24012@cs.odu.edu>
Organization: Georgia Institute of Technology
Lines: 24

Forgive me for being stupid but I haven't ever had the need to write a 
file locking program. Wouldn't this be all that was necessary?

type
   LockedRecType = record
		     Locked: Boolean
		     Data: DataType
		     end;

Var
   File: LockRecType;

begin
   if File.Locked then 
      writeln('It's locked stupid')
    else
      AccessFile(File)
end       

-- 
*****************************************************************************
* Joshua I. Guttman	                   "I'm a lookin' for the man that  *
* gt0652b@prism.gatech.edu                 shot my paw!" - The Three Legged *  
* (404)355-3908 Home/(404)355-0001 Work               Outlaw Dog.           *