delphi3000.com - the free delphi knowledge platform
delphi3000.com - the free delphi knowledge platform
500 Users Online NOW
Have a look at your member-status

connecting people's knowledge


  - Recent ArticlesRSS feed for Recent Articles on delphi3000.com
  - List of All Articles
  - Top Viewed Articles
  - Articles (+Attachem.)
  - Articles Of Interest
  - Categories
  - Top Uploader
  - Search
  - Index

  - My Home
  - Submit an Article
  - My Articles
  - My Personal Data
  - My Bookmarks
  - Activities
  - Login/Logout

  - Sign Up
  - Why Sign Up
  - Newsletter

  - Press
  - Advertise

  - Contact
  - Feedback





Community
Borland
ClubeDelphi
Dr. Bob
UK-BUG
Delphi Meetings
Planeta Delphi



Loremo - the 1.5 liter car coming in 2009




Startblatt.de






Share this article with friendsShare this article with friends
Rate this articleRate this article - to keep the quality of delphi3000.com !
Comment this article or read through previous comments (0)


Delete a file and wait till complete before continuing.Format this article printer-friendly!Bookmark function is only available for registered users!
How to delete a file and then wait until it is gone before continuing.
Product:
Delphi all versions
Category:
System
Skill Level:
Scoring:
Last Update:
06/26/2001
Search Keys:
delphi delphi3000 article borland vcl code-snippet delete wait complete read write application
Times Scored:
7
Visits:
1555
Uploader: John Mollll
Company:
Reference: N/A
 
Question/Problem/Abstract:
How do I delete a file and then wait until it has gone before continuing. I need to delete something and then create a new version of it to write to.
Answer:



Using this simple function you can suspend your application until a file has actually been deleted, rather than issue the DeleteFile command and get an error message when you try to create the file again on the next line.  (This is quite common when windows does not execute the delete command as quickly as your application can pass it over.)

procedure WipeFile(sFileName: String);
begin
  If FileExists(sFileName) then DeleteFile(sFileName);
  While FileExists(sFileName) do
    Application.ProcessMessages;
end;

Very simplistic code, but if you use this instead of DeleteFile, you know that the file is gone.





Please rate this article!
Skill level:
BeginnerExpert

Useful:
No!Very!

Overall rating:
PoorExcellent



Comments to this article
Write a new comment













 
Sign up to consume product discounts for Bronze memberships !

read more


  Visit our Sponsor

 

  Community Ad of
A. B. Talal
 
   














 







     
  Copyright © 2000 - 2007 delphi3000.com - All rights reserved. Terms of use. || Privacy
delphi3000.com is a service by bluestep.com IT-Services GmbH (Vienna)