LuckieDIPS

[Luckie]

Zitat von fLaSh11:

Wenn ich einen Pfad angebe und dann sichern klicke, stellt das Programm den Pfad immer wieder auf den Standard-Pfad um... (genauso beim Laden)

Kann ich nicht nachvollziehen:

• Pfad ausgewählt
• "Sichern" geklickt
• Gewählter Pfad blieb im Editer halten

Ebenso beim Wiederherstellen.

[fLaSh11]

Also ich hab mal Screenshots gemacht. Hab zwischendurch nur auf Sichern geklickt

[Luckie]

Lad dir mal die aktuelle Version runter aus dem ersten Beitrag. Das ist ein Bug aus einer älteren Version.

[fLaSh11]

Tatsache

Sonst sehr brauchbares Programm.

[turboPASCAL]

Moin,

kleinen Fehler gefunden mit ggf. Grosser Wirkung.

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Procedure : DirectoryExists
// Comment   : buggy
function DirectoryExists(const Directory: string): Boolean;
var
  Code: Integer; // <--<< das wird nix da GetFileAttributes
                 // ein DWord (Cardinal) zurückgibt
begin
  Code := GetFileAttributes(PChar(Directory)); // <--<<
  Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0); // <--<< *)
end;

// *) dies wird nix, Vergleich ergibt immer wahr.

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Procedure : DirectoryExists
// Comment   : work
function DirectoryExists(const Directory: string): Boolean;
var
  Code: Cardinal;
begin
  Code := GetFileAttributes(PChar(Directory));
  Result := (Code <> $FFFFFFFF) and (Code = FILE_ATTRIBUTE_DIRECTORY);
end;

[Luckie]

Oh, danke für den Hinweis.

[turboPASCAL]

Bitte.

[Hawkeye219]

Hallo Michael,

leider hat Matti beim Ändern deines etwas unsauberen (aber nicht falschen) Codes einen neuen Fehler eingebaut, indem er die zweite AND-Verknüpfung entfernt hat.

Falsch wäre übrigens nur der direkte Vergleich gewesen:

if (GetFileAttributes(PChar(Directory)) <> -1) then ... // falsch! Aber diesen Versuch hätte der Compiler schon mit einer Warnung quittiert.

Gruß Hawkeye

[Luckie]

Aber ich habe sie nicht vergessen.

[turboPASCAL]

Zitat von Hawkeye219:

Hallo Michael,

leider hat Matti beim Ändern deines etwas unsauberen (aber nicht falschen) Codes einen neuen Fehler eingebaut, indem er die zweite AND-Verknüpfung entfernt hat. [...]

Das:
Result := (Code <> $FFFFFFFF) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0); Äh, wieso ?

Result := (Code <> $FFFFFFFF) and (Code = FILE_ATTRIBUTE_DIRECTORY);

Code:

Result := (Code <> $FFFFFFFF) and (Code = FILE_ATTRIBUTE_DIRECTORY);
       ok =        ja            und           ja
  nich ok =        ne            und           ja
  nich ok =        ne            und           ne
  nich ok =        ja            und           ne