Appending data to file; Error I/O 32

Is there enough disk space?

Ciao, Mike

mmmmm lizzzard you may have it, will check it out and come back to you

Here only other code that access it...note lack of close!!

   assignfile(fn,'C:\PatientLog2.txt');
   reset(fn);

   while not eof(fn) do
   begin
        readln(fn,dumPatientName);
        readln(fn,dumDate);
        readln(fn,DumMin);
        readln(fn,DumMax);
        readln(fn,DumAvg);
 
        stringgrid1.cells[y,x]:=dumpatientname;
        stringgrid1.cells[y,x]:=dummin;
        stringgrid1.cells[y,x]:=dummax;
        Inc(x);Inc(y);
       
   end;
end;

Hi,

it is a share-violation or you're trying to a non-existing file. Your program should test these cases like that


var oneline     : string;
    fn          : textfile;
    x,y         : integer;
    OK          : Boolean;

begin
   assignfile(fn,'C:\PatientLog2.txt');
   {$I-}
   append(fn);
   {$I+}
   Ok := IOresult = 0;
   If not OK Then
      Begin
      {$I-}
      ReWrite(fn); // File creation if needed
      {$I+}
      OK := IOResult = 0;
      End;

   If OK Then
      Begin
      WriteLn(fn,txtPatientNameLog.text);
      WriteLn(fn,DateToStr(Date));  
      WriteLn(fn,txtMinLog.text);
      WriteLn(fn,txtMaxLog.text);
      WriteLn(fn,txtAvgLog.text);

      CloseFile(fn);
      End; // If Ok

   btnSave.visible:=False;

Emmanuel

ok, i had this problem to(even with a log file ..wierd ha?).

these are my conclutions:

a)it may be disk space.
b)it may be-trying to write/read to the file from 2 diffrent places(meaing 2 procedures trying to call to the same file)
c)try flussing the file before closing it ..

Bye Tomer  

assignfile(fn,'C:\PatientLog2.txt');
   {$I-}
   append(fn);
   {$I+}
   Ok := IOresult = 0;
   If not OK Then
      Begin
      {$I-}
      ReWrite(fn); // File creation if needed
      {$I+}
      OK := IOResult = 0;
      End;

can be simplified a bit to -

AssignFile(fn, 'c:\patientLog2.txt');

if FileExists('c:\patientlog2.txt') then
  Append(fn)
else
  ReWrite(fn);

I always do that with log files, as some of my users have a bad habit of deleting logs so I can't see what they've been up to!

Thanks for the correct answer Alex and you were fast too!!!

ECollin thanks for your input..... liked what you did there but Alex answered correctly first.

johnstoned I didnt get the point of you posting half of what ECollins posted..... but god loves a chancer.... I dont!!!

thanks all

I'm delighted!

Cheers,
Alex