xsharp.eu

Code: Select all

BEGIN NAMESPACE XSharp.VFP
    /// action  __DoOnChar(tc2Check as Char)
    ///* predicate __IsInDe(tc2Check as Char)
    Delegate __IsInDelimiterArray(tc2Check as Char) as Boolean
    Delegate __GetWordCountActive(tcString AS STRING) as Long
    Delegate __GetWordNumActive(tcString AS STRING, tnWordNum as Int) as String

Code: Select all

FUNCTION Start() AS VOID
LOCAL oMultiply AS Action<INT,INT> // 2 int params
oMultiply := { n AS INT , m AS INT =>
			System.Console.WriteLine(n * m)
			}
oMultiply(3,4)

LOCAL oIsEven AS @@Func<INT,LOGIC> // 1 int param, logic return type
oIsEven := { n AS INT =>
			RETURN n % 2 == 0
			}
? oIsEven(3)

Code: Select all

self:ImportButton := RelayCommand{ ExecuteImportButton, ExecuteEnabledButtons }

Code: Select all

constructor( oExecute as Action<object>, oCanExecute as Predicate<object> )

Code: Select all

public method ExecuteImportButton( oObject as object ) as void

Code: Select all

public method ExecuteEnabledButtons( oObject as object ) as logic

Code: Select all

    /// action  __DoOnChar(tc2Check as Char)
    /// predicate __IsInDe(tc2Check as Char)
    /// predicate __IsInDe<Char>
    Delegate __IsInDelimiterArray(tc2Check as Char) as Boolean
    Delegate __GetWordCountActive(tcString AS STRING) as Long
    Delegate __GetWordNumActive(tcString AS STRING, tnWordNum as Int) as String
	/// <summary>
    /// The Class1 class.
    /// </summary>
	CLASS GetWordHandler
        public oDelFunc as @@Func <Char, Boolean>
        public oDelActn as Action <Char, Int>
        public oDelPred as Predicate <Char>
        public oDelType as __IsInDelimiterArray

        internal method Test_Type(tcString as String, isInDelimiter as __IsInDelimiterArray) as String
            return ""
            
        internal method Test_Func(tcString as String, isInDelimiter as @@Func<Char>) as String
            return ""
            
        internal method Test_Pred(tcString as String, isInDelimiter as Predicate<Char>) as String
            return ""