Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Zahl in einzelne Stellen zerlegen ohne Stringkonvertierung!

Mal nicht direkt in Delphi, sonder eher funktional. Aber das Prinzip sollte klar werden

Code:

			function toDigits (0) = []

function toDigits (number) = concat(toDigits (number / 10), listOf(number mod 10))

Dax (Gast) n/a Beiträge	#2 Re: Zahl in einzelne Stellen zerlegen ohne Stringkonvertieru 26. Apr 2009, 00:18 Mal nicht direkt in Delphi, sonder eher funktional. Aber das Prinzip sollte klar werden markieren Code: function toDigits (0) = [] function toDigits (number) = concat(toDigits (number / 10), listOf(number mod 10))
	Zitat