Eine kurze Frage:

Sind diese beiden Zeilen in der Funktion identisch?

markieren

Delphi-Quellcode:

  if not ForceDirectories('c:/Registerinhalte') then ForceDirectories('c:/Registerinhalte');

  if not (DirectoryExists('c:/Registerinhalte')) then ForceDirectories('c:/Registerinhalte');

Gruß
Holger

Zitat:

ForceDirectories('c:/Registerinhalte');

sollte ausreichend sein.

Nein die sind nicht identisch.

ForceDirectories gibt zurück, ob das Verzeichnis erstellt werden konnte oder nicht.
DirectoryExists legt nichts an sondern prüft nur.

Zitat:

ForceDirectories('c:/Registerinhalte');

Dazu noch eine Frage. Was ist mit Leuten, die nicht C sondern Y oder was anderes als Systempartition haben?

Dann macht die erste Zeile in meinen Augen aber keinen Sinn. Wenn das Verzeichnis nicht erstellt werden kann dann Verzeichnis erstellen???????

Das stammt noch von meinem verstorbenen Kollegen.

Richtig, macht nicht wirklich sinn.

Es sollte eher so sein:
if not ForceDirectories('c:\...') then
// Benutzer informieren, dass das Verzeichnis nicht erstellt werden konnte und den Fehler behandeln.

Zitat von DieDolly:

Dazu noch eine Frage. Was ist mit Leuten, die nicht C sondern Y oder was anderes als Systempartition haben?

Das kommt nicht vor weil die Anwendung nur auf unseren Maschinen läuft. Ohne die Steuerung im Hintergrund startet die Anwendung gar nicht erst.

Zitat von Nersgatt:

Richtig, macht nicht wirklich sinn.

Es sollte eher so sein:
if not ForceDirectories('c:\...') then
// Benutzer informieren, dass das Verzeichnis nicht erstellt werden konnte und den Fehler behandeln.

Ich denk auch das ich das umbauen werde.

Zitat von holger_barntrup:

Dann macht die erste Zeile in meinen Augen aber keinen Sinn. Wenn das Verzeichnis nicht erstellt werden kann dann Verzeichnis erstellen???????

Vielleicht hat er das damals eingefügt, um beim Debugging das ForceDirectories nochmal ausführen zu können, wenn es fehlschlägt, und zwar diesmal im Debugger.

Es gibt in meinem Code auch teilweise Stellen, die so aussehen:

markieren

Delphi-Quellcode:

try
  MachWas;
except
  asm nop end; //<- Breakpoint hier setzen
  MachWas;
end;

Normalerweise entferne ich solchen Code, bevor ich die Sourcen einchecke, aber es kann schonmal passieren, dass es mir durchgeht.

Zitat von dummzeuch:

Normalerweise entferne ich solchen Code, bevor ich die Sourcen einchecke, aber es kann schonmal passieren, dass es mir durchgeht.

Der Code muß aber seeehr alt sein, ich kenne das noch aus TP-Zeiten.

Gruß
K-H

Zitat von dummzeuch:

Zitat von holger_barntrup:

Dann macht die erste Zeile in meinen Augen aber keinen Sinn. Wenn das Verzeichnis nicht erstellt werden kann dann Verzeichnis erstellen???????

Vielleicht hat er das damals eingefügt, um beim Debugging das ForceDirectories nochmal ausführen zu können, wenn es fehlschlägt, und zwar diesmal im Debugger.

Es gibt in meinem Code auch teilweise Stellen, die so aussehen:

markieren

Delphi-Quellcode:

try
  MachWas;
except
  asm nop end; //<- Breakpoint hier setzen
  MachWas;
end;

Normalerweise entferne ich solchen Code, bevor ich die Sourcen einchecke, aber es kann schonmal passieren, dass es mir durchgeht.

Das wäre eine Erklärung dafür.