Einzelnen Beitrag anzeigen

Benutzerbild von Störtebeker
Störtebeker

Registriert seit: 9. Jul 2007
398 Beiträge
 
#6

AW: File löschen und umbenennen geht nicht

  Alt 18. Aug 2010, 22:38
Delphi-Quellcode:
procedure TForm7.CheckForPatchFile;
var
  patchfile, currentfile: string;
begin
  patchfile := ExtractFilePath(Application.ExeName)+'vers_patch.ini';
  currentfile := ExtractFilePath(Application.ExeName)+'vers_aktuell.ini';
  if not FileExists(patchfile) then
    exit;
  deletefile(currentfile);
  renamefile(patchfile, currentfile);
end;
Ich bin gerade echt am verzweifeln... ...ich weiß nicht, aber es scheint, als würde sich Delphi um diesen Codeschnipsel gar nicht kümmern. Kein Löschen der File, kein Umbenennen der File.

Aufgerufen wird die CheckForPatchFile Procedure etwas später bei einem Timer:

Delphi-Quellcode:
procedure TForm7.Timer2Timer (Sender: TObject);
begin
 Label9.Caption:='Patching...';
 Form7.Caption:='0%';
 begin
 if FileExists(ExtractFilePath(Application.ExeName)+'vers_patch.ini') then
 CheckForPatchFile;
 Timer3.Enabled:=True;
end;
end;
Timer2 wird im FormShow Ereignis gestartet
Delphi-Quellcode:
procedure TForm7.FormCreate(Sender: TObject);
begin
Label9.Caption:='Loading...';
Timer2.Enabled:=True;
end;
"And he piled upon the whale´s white hump - a sum of all the rage and hate felt by his whole race.
If his chest had been a cannon, he would have shot his heart upon it."
  Mit Zitat antworten Zitat