xsharp.eu

Code: Select all

/// <summary>This operator is used in code generated by the compiler when needed.</summary>
[DebuggerStepThrough];
PUBLIC STATIC OPERATOR IMPLICIT(u AS __Usual ) AS Logic
	IF (u:IsNull) .OR. (!u:_initialized)
		RETURN false
	ENDIF
	RETURN u:_usualType SWITCH__UsualType.Logic => u:_logicValue, 
	__UsualType.Long => u:_intValue != 0, 
	__UsualType.Int64 => u:_i64Value != 0, 
	__UsualType.Currency => u:_currencyValue != 0, 
	__UsualType.Decimal => u:_decimalValue != 0m, 
	_ => THROW __Usual.ConversionError(8u, TYPEOF(Logic), u), 
END OPERATOR

Code: Select all

/// <summary>This operator is used in code generated by the compiler when needed.</summary>
[DebuggerStepThrough];
PUBLIC STATIC OPERATOR IMPLICIT(u AS __Usual ) AS Logic
	IF (u:IsNull) .OR. (!u:_initialized)
		RETURN false
	ENDIF
	SWITCH u:_usualType
	CASE __UsualType.Logic
		RETURN u:_logicValue
	CASE __UsualType.Long
		RETURN u:_intValue != 0
	CASE __UsualType.Int64
		RETURN u:_i64Value != 0
	CASE __UsualType.Currency
		RETURN u:_currencyValue != 0
	CASE __UsualType.Decimal
		RETURN u:_decimalValue != 0m
	OTHERWISE
		THROW __Usual.ConversionError(8u, TYPEOF(Logic), u)
	END SWITCH

END OPERATOR

Code: Select all

LOCAL array2 AS char[]
array2 := "4711".ToCharArray()
_ := array2[0]

Code: Select all

char[] array2 = "4711".ToCharArray();
_ = array2[0];

Code: Select all

public static string ToPIN(this string pin)
	{
		string text = string.Empty;
		for (int i = 0; i < pin.Length; i++)
		{
			text = text + "3" + pin[i];
		}
		return text;
		}

Code: Select all

public static method ToPIN(pin AS STRING) AS STRING
	LOCAL text AS STRING
	LOCAL i AS LONG

	text := string.Empty
	i := 0	
	WHILE i < pin:Length
//		text := text + "3" + pin[i]		// error XS9078
		text := text + "3" + pin.Substring(i,1)	// OK
		i++
	ENDDO
	RETURN text

Code: Select all

pin[i]

Code: Select all

pin[i] 

Code: Select all

pin[i].ToString().