Delphi Example code : Try to delete a file twice

SUBMITTED BY: kendiboy

DATE: Dec. 21, 2017, 4:38 p.m.

UPDATED: Dec. 21, 2017, 4:38 p.m.

FORMAT: Text only

SIZE: 966 Bytes

History Raw Download

HITS: 383

Report
  1. Example code : Try to delete a file twice
  2. var
  3. fileName : string;
  4. myFile : TextFile;
  5. data : string;
  7. begin
  8. // Try to open a text file for writing to
  9. fileName := 'Test.txt';
  10. AssignFile(myFile, fileName);
  11. ReWrite(myFile);
  13. // Write to the file
  14. Write(myFile, 'Hello World');
  16. // Close the file
  17. CloseFile(myFile);
  19. // Reopen the file in read mode
  20. Reset(myFile);
  22. // Display the file contents
  23. while not Eof(myFile) do
  24. begin
  25. ReadLn(myFile, data);
  26. ShowMessage(data);
  27. end;
  29. // Close the file for the last time
  30. CloseFile(myFile);
  32. // Now delete the file
  33. if deletefile(fileName)
  34. then ShowMessage(fileName+' deleted OK')
  35. else ShowMessage(fileName+' not deleted');
  37. // Try to delete the file again
  38. if deletefile(fileName)
  39. then ShowMessage(fileName+' deleted OK again!')
  40. else ShowMessage(fileName+' not deleted, error = '+
  41. IntToStr(GetLastError));
  42. end;
comments powered by Disqus