Talk:Recursive filesearch - Revision history

Molly at 10:06, 18 August 2014

2014-08-18T10:06:14Z

Alb42 at 09:11, 17 August 2014

2014-08-17T09:11:46Z

Alb42: ? Operator has a 1:1 replacement in Pascal

2014-08-17T09:08:01Z

? Operator has a 1:1 replacement in Pascal

New page

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

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

one could write: if for strings need Unit StrUtils, for number need unit Math

<source lang=pascal>
s := IfThen(ap^.ap_Info.fib_DirEntryType < 0, '', 'Dir')
</source>
[[User:Alb42|Freepascal aros porter]] ([[User talk:Alb42|talk]]) 11:08, 17 August 2014 (CEST)
----

← Older revision		Revision as of 10:06, 18 August 2014
Line 20:		Line 20:
	--[[User:Alb42\|ALB42]] ([[User talk:Alb42\|talk]]) 11:11, 17 August 2014 (CEST)		--[[User:Alb42\|ALB42]] ([[User talk:Alb42\|talk]]) 11:11, 17 August 2014 (CEST)
	----		----
		+
		+	Indeed, i 'missed' the ifthen solution. Something i came to learn about a little later on. fwiw: i initially used my own iif routines, but ripped them out for this routine to not confuse the reader (in original a-e post).
		+
		+	Sorry for the 'simple' copy-paste. I'll try adding explanations later on. Which btw will also handle the topic of why this recursive search does not call itself recursively (i can't help commodore invented 'dumbwitted' OS calls that does things automatically for us ;-p).
		+
		+	I'll add the Freepascal native counterpart alongside as well to compare/explain.

@@ Line 10: / Line 10: @@
 </source>
-one could write: if for strings need Unit StrUtils, for number need unit Math
+one could write:
 <source lang=pascal>
 s := IfThen(ap^.ap_Info.fib_DirEntryType < 0, '', 'Dir')
 </source>
-[[User:Alb42|Freepascal aros porter]] ([[User talk:Alb42|talk]]) 11:08, 17 August 2014 (CEST)
+(if for strings need Unit StrUtils, for number need unit Math)
 ----