Hi All
I just want to delete all the records in a file. Here is my code.
IF HNbRec(PPLines) > 0 AND NOT HOut(PPLines) THEN
FOR i = 1 TO HNbRec(PPLines)
HDelete(PPLines, hCurrentRecNum )
END
END
It fails the if statment. HOut is true so it must be something to do
with the HNbRec part. Anyone know a quicker way to delete all records
in a HF. Regards

Theoretically HCreation does it. BUT in a mylti-user environment it
doesn't work the way you think.

I do the delete on active records. I find this works well -

My file here is called Sage8 and the index I am using is S8A.

HReadFirst(Sage8,S8A)
LOOP
IF HOut(Sage8) THEN BREAK
IF HState(Sage8)= hStateActive THEN
HDelete(Sage8,hCurrentRecNum)
END
HReadNext(Sage8,S8A)
END

(Some of your records you are reading are probably deleted and the
Hout is bombing it out). I also tend to write some code in to check
the file is not in use, after all it should really be closed and not
in use.

Then do this -

Myvar is boolean
Mode is int
Directory is string= datadirectory
WindowHandle is int = Handle()
Mode = hNdxDelete
LogicalFileName is string ="SAGE8"
PhysicalFileName is string="SAGE8"
Myvar= HIndex(LogicalFileName, PhysicalFileName,Directory, Mode,
WindowHandle) IF Myvar = False THEN
Error("Hyper File error: " + HErrorInfo())
END

This gets rid of the space and checks the file at the same time.

Norman
ZiPZAP Computers Limited, Lincoln UK.