Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#7

AW: File löschen und umbenennen geht nicht

  Alt 18. Aug 2010, 22:58
Hallo,

erstmal: den Code if FileExists(ExtractFilePath(Application.ExeName)+'vers_patch.ini') then im "Timer2Timer" kannst du dir ersparen, denn
das gleiche, über einen anderen Weg macht dieser Code in der Procedure CheckForPatchFile:  if not FileExists(patchfile) then exit; Lass dir doch erstmal die Rückgabewerte zurückmelden:

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
    ShowMessage(Format('Datei existiert nicht: %s', [patchfile]));
    exit;
  If not deletefile(currentfile) then
    begin
      ShowMessage('löschen fiel fehl!');
      exit;
    end;
  If not renamefile(patchfile, currentfile) then
    begin
      ShowMessage('Umbenennen fiel fehl!');
      exit;
    end;
  ShowMessage('alles scheint in Ordnung gewesen zu sein!');
end;
Die ShowMessages zeigen dir was los ist, ob das Lösen funktionierte bzw. das Umbenennen.
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<

Geändert von Helmi (18. Aug 2010 um 23:02 Uhr)
  Mit Zitat antworten Zitat