Lines Matching refs:ErrorCheck
12 PROCEDURE ErrorCheck (Action,FN : STRING); procedure
39 ErrorCheck ('Create',TestFN);
45 ErrorCheck ('BlockWrite',TestFN);
49 ErrorCheck ('Seek',TestFN);
54 ErrorCheck ('BlockRead',TestFN);
64 ErrorCheck ('Close',TestFN);
67 ErrorCheck ('Erase',TestFN);
79 ErrorCheck ('ReWrite',FN);
85 ErrorCheck ('WriteLn',FN);
87 Write ('Close'); Close (T); ErrorCheck ('Close',FN);
90 ErrorCheck ('Reset',FN);
96 ErrorCheck ('ReadLn',FN);
103 Write ('Close'); Close (T); ErrorCheck ('Close',FN);
104 Write ('Erase'); Erase (T); ErrorCheck ('Erase',FN);
200 ErrorCheck ('Reset',ParamStr(0));