Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
29. Nov 2007
Popov, die Funktion erkennt auch Ganzzahlen, eben alle Zahlen. Äh.. oder... eh.. :gruebel: Jedenfalls hat sie das eben noch.
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
29. Nov 2007
So wäre es mit einem Automaten (Es erkennt die Floatingpoint Notation, Fixed Point und Integer mit beliebig vielen Vorzeichen), also z.B.:
"+-+-+12345,3456453345345E-9123123123"
Function IsAnyNumber(Const aValue: String): Boolean;
Const
map: Array Of Integer = (
{0}(1, 2, -1, 0, -1, -1),
{1}(1, 2, 4, -1, -1, 9),
{2}(3, -1, -1, -1, -1, 9),
{3}(3, -1, 4, 0, -1, 9),
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
28. Nov 2007
Tipp: Erst testen, dann meckern.
Einfach mal die Zeit messen, die das Verfahren benötigt, um eine -sagen wir- Zahl mit 100.000.000 Stellen zu prüfen.
Wobei der Algo von himitsu noch nicht mal sonderlich performant ist, aber darum gings ihm hier sowieso nicht, nur um eine kurze und knappe Geschichte.