Talk:Recursive filesearch

From Freepascal Amiga wiki
Revision as of 10:11, 17 August 2014 by Alb42 (talk | contribs)
Jump to navigation Jump to search

Hint "?" Operator does not exist but there is a replacement:

if (ap^.ap_Info.fib_DirEntryType < 0) then 
begin 
  s := '';  
end else
  s := 'Dir';

one could write:

s := IfThen(ap^.ap_Info.fib_DirEntryType < 0, '', 'Dir')

(if for strings need Unit StrUtils, for number need unit Math)

Besides I'm a little bit worried, that a recursive Filesearch is not coded recursively :-) --ALB42 (talk) 11:11, 17 August 2014 (CEST)