Forum: Programmieren allgemein
Delphi
by EmWieMichael,
1. Dez 2016
Das klingt spannend. Warum ist denn eine Routine mit weniger Code, die exakt das gleiche Ergebnis liefert, wie eine Routine mit mehr Code kontraproduktiv?
Forum: Programmieren allgemein
Delphi
by EmWieMichael,
30. Nov 2016
Besteht das Problem nur auf dem Serverlaufwerk oder auch lokal. Ist das Serverlaufwerk gemappt?
Bei mir funktioniert diese Routine unter Win 7 lokal einwandfrei (ich habe mir erlaubt, das Ganze etwas zu verkürzen):
S:='D:\TEMP\H*.*';
if (FindFirst(S, faAnyFile, SearchRec) = 0) then
begin
repeat
if (searchrec.attr and fadirectory = 0) then
...