Aufruf: under construction

VARIANT = Zerlege(tcString AS STRING , tnIndex AS NUMBER , tcDelimiter AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: VARIANT

Code: under construction

PROCEDURE Zerlege (tcString AS STRING,tnIndex AS NUMBER,tcDelimiter AS STRING) AS Variant
	RETURN ICASE(;
		VARTYPE(m.tcString)<>"C","",;
		VARTYPE(m.tnIndex)$"NYFBI",My.Functions.Strings.GetWortNum(m.tcString,m.tnIndex,IIF(VARTYPE(m.tcDelimiter)<>"C" OR EMPTY(m.tcDelimiter),";",m.tcDelimiter)),;
		My.Functions.Strings.GetWortNum(m.tcString,-999,IIF(VARTYPE(m.tcDelimiter)<>"C" OR EMPTY(m.tcDelimiter),";",m.tcDelimiter)))
ENDPROC