Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#17

AW: File löschen und umbenennen geht nicht

  Alt 19. Aug 2010, 13:18
Properties/Funktionen wären aber auch noch eine Möglichkeit, solche Fehler zu vermeiden. Auch hier kann man ja dann Konstanten verwenden.
Delphi-Quellcode:
function PatchFileName: string;
const ININAME = 'vers_patch.ini';
begin
  Result := ExtractFilePath(ParamStr(0)) + ININAME;
end;

function CurrentFileName: string;
const ININAME = 'vers_aktuell.ini';
begin
  Result := ExtractFilePath(ParamStr(0)) + ININAME;
end;

procedure TForm7.CheckForPatchFile;
var
  patchfile, currentfile: string;
begin
  patchfile := PatchFileName;
  if FileExists(patchfile) then
    begin
      currentfile := CurrentFileName;
      if not MoveFileEx(PChar(patchfile),PChar(currentfile),MOVEFILE_REPLACE_EXISTING or MOVEFILE_WRITE_THROUGH) then
        raise Exception.Create(SysErrorMessage(GetLastError));
    end;
end;
Man kann das auch noch weiter treiben und eine weitere Funktion schreiben, die den Pfad zurückgibt.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat