xsharp.eu

Code: Select all

        
            DataTable db = GetCustomers("ACCTINFO.dbf");

            string[] postSource = db
                .AsEnumerable()
                .Select<System.Data.DataRow, String>(x => x.Field<String>("ACTNUMBER"))
                .ToArray();

Code: Select all

  local db := GetCustomers("ACCTINFO.dbf"as DataTable 
                   
  local postSource as string[]   
  postSource  := db:AsEnumerable():select<DataRow, string>( {x => x:Field<string>("ACTNUMBER")}):ToArray()           // I prefer this syntax

/*
// alternate syntax with ; as line continuation character ( I am not talking C#)
           postSource := db:AsEnumerable();
               :select<System.Data.DataRow, string>( {x => x:Field<string>("ACTNUMBER")});
               :ToArray() 
*/
                

Code: Select all

{x => x:Field<string>("ACTNUMBER")}

Code: Select all

{x as DataRow => x:Field<string>("ACTNUMBER")}

Code: Select all

FUNCTION StartSolver() AS VOID
	VAR oP1 := Prop{"P1", 30, 95.57}
	VAR oP2 := Prop{"P2", 100, 358.54}
	VAR oP3 := Prop{"P3", 300, 859.3}
	LOCAL  dPot AS System.Func<Prop, List<Prop> >
//	LOCAL  dSol AS System.Func<Prop, List<Prop> >
	dPot := ;
		{ p AS Prop => // Notice, no ";" for line continuation
			VAR Potentials := List<Prop>{}
			VAR pcs := 0
			Potentials:Add(p)
			LOCAL oP AS Prop
			REPEAT
				oP := Prop{p:Name, p:Quantity, p:Price}{Pieces := ++pcs}
				Potentials:Add(oP)
			UNTIL Prop.Qualify(oP:Constraint())
			RETURN Potentials
		}
	VAR oPot1 := dPot(oP1)
	VAR oPot2 := dPot(oP2)
	VAR oPot3 := dPot(oP3)

	VAR oSol := (FROM p1 IN oPot1 ;
						JOIN p2 IN oPot2 ON TRUE EQUALS TRUE ;
						JOIN p3 IN oPot3 ON TRUE EQUALS TRUE ;
						WHERE Prop.Qualify(p1:Constraint() + p2:Constraint() + p3:Constraint()) ;
						ORDERBY (p1:Minimize() + p2:Minimize() + p3:Minimize()) ;
						SELECT <INT>{p1:Pieces, p2:Pieces, p3:Pieces}):Take(3)
	FOREACH VAR s IN oSol
		? s[0], s[1], s[2]
	NEXT
/* The result of oSol should be List<Prop> where last item the number of pieces required:
Prop{"P1", 30, 95.57, 5}
Prop{"P2", 100, 358.54, 2}
Prop{"P3", 300, 859.3, 0}
*/
RETURN

CLASS Prop

	HIDDEN _name AS STRING
	HIDDEN _price AS REAL8
	HIDDEN _qty AS INT

	PROPERTY Name AS STRING GET _name
	PROPERTY Price AS REAL8 GET _price
	PROPERTY Quantity AS INT GET _qty
	PROPERTY Pieces AS INT AUTO

	CONSTRUCTOR(n AS STRING, q AS INT, p AS REAL8)
		_name := n
		_price := p
		_qty := q
		Pieces := 0
	RETURN

	METHOD Minimize() AS REAL8
	RETURN _price * Pieces

	METHOD Constraint() AS INT
	RETURN _qty * Pieces

	STATIC METHOD Qualify(val AS INT) AS LOGIC
	RETURN val >= 241
END CLASS