Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.415 Beiträge
 
Delphi 7 Professional
 
#27

AW: Erstellung einer Funktion

  Alt 5. Jun 2021, 08:26
Naja, momentan speicherst Du halt die Länge der längsten Nummer und gibst dann eine Zahl (Byte) zurück.

An der Stelle, an der Du Dir die längste Nummer merkst, musst Du Dir dann wohl "einfach" nur diese Nummer merken und diese dann zurückgeben. Da es sich bei den Nummern um Zeichenfolgen handelt, wird der Rückgabewert wohl besser ein String sein, damit auch (wie oben gefordert) führende Nullen erhalten bleiben.

Die grundsätzliche Logik ist aber identisch.

Achso: Bei Deiner derzeitigen Variante wird das Ergebnis nicht immer richtig sein. Es dürfte nur dann stimmen, wenn zufällig die letzte Ziffernfolge länger als die zuvor gemerkten Länge ist und die Zeichenfolge auf jeden Fall mit einer Ziffer endet.

Mein grober Test ergab:
Code:
a -> 00000
a1a -> 00000
a22aa333aa -> 00000
a22a333a22aa -> 00000
123 -> 00003
a11111a -> 00000
a1 -> 00001
a1aa22aaa333 -> 00003
aaaa4444aaaaa55555aaaaaa -> 00000
1234567890aaaaaaaaaa -> 00000
Von 10 Testfällen sind weniger als 50% richtig. Da ist noch Luft nach oben
  Mit Zitat antworten Zitat