Forum: Programmieren allgemein
by HeikoAdams,
30. Nov 2009
hmm ...
also bei
and ((aDestDir = INVALID_HANDLE_VALUE)
und
and (ftLastWriteTime > ftLastWriteTimeDest))
hast Du Dich wahrscheinlich vertippt. Böses Copy&Paste :wall:
Edit: Ich habe mir aus Deinen Tips folgende Funktion gebaut:
procedure BuildFileList(const aSourceDir, aDestDir: string; aSource, aFiles:
Forum: Programmieren allgemein
by HeikoAdams,
30. Nov 2009
Wenn Du jetzt noch
CloseHandle(hSearch);
durch
Windows.FindClose(hSearch);
ersetzt, dann funktioniert der Code auch noch 8-)
Nichts desto trotz: Danke! :thumb:
Forum: Programmieren allgemein
by HeikoAdams,
30. Nov 2009
Das Problem ist, das in aSource der Inhalt des Quellverzeichnisses rekursiv gespeichert ist. Aus dem Grund habe ich mich für die String-Liste entschieden, da ich aSource vorher mittels AdvBuildFileList aus der JCL bestücke und den Quellpfad aus den aSource Einträgen lösche.
Forum: Programmieren allgemein
by HeikoAdams,
30. Nov 2009
Hallo,
die folgende Routine prüft, ob die in der Stringliste aSource aufgeführten Dateien in den Verzeichnissen aSourceDir und aDestDir existieren. Falls dem so ist, wird weiterhin geprüft, ob die Datei in aSourceDir neuer ist als die in aDestDir.
Mich würde jetzt interessieren, ob es bei dieser Routine noch Möglichkeiten zur Optimierung gibt oder ob alle Möglichkeiten ausgereizt sind.
...