Erstellung einer Funktion

[Mo53]

@Delphi.Narium es soll die längste Ziffernfolge (Zahlenfolge) ausgegeben werden, irrelevant ist dabei die Größe der einzelnen Zahlen.

[Delphi.Narium]

Zitat von Mo53:

@Delphi.Narium es soll die längste Ziffernfolge (Zahlenfolge) ausgegeben werden, irrelevant ist dabei die Größe der einzelnen Zahlen.

Ja, das ist klar.

Und wie lang ist bei 1234567890aaaaaaaaaa -> 00000 die längste Ziffernfolge?

Deine Routine sagt: Die Länge der längsten Ziffernfolge ist 0. Das ist wohl kaum richtig.

Bei Deiner Routine wäre auch bei 0000000000aaaaaaaaaa die Länge der längsten Ziffernfolge = 0, ebenso bei 9999999999aaaaaaaaaa und selbst bei 0 (hier bitte eine unendliche Anzahl von Nullen einfügen) 0a wäre die Länge = 0.

Oder anders: Das Ergebnis Deiner Rouitne entspricht nicht der von Dir genannten Vorgabe:

Zitat:

es soll die längste Ziffernfolge (Zahlenfolge) ausgegeben werden, irrelevant ist dabei die Größe der einzelnen Zahlen.

Das Ergebnis der jetzigen Routine zur Längenermittlung ist schlicht und einfach falsch. Wird diese Routine nun so geändert, dass statt der Länge der längsten Ziffernfolge die längste Ziffernfolge zurückgegeben wird, bleibt das Ergebnis trotzdem falsch. Deine Logik enthält einen grundsätzlichen Fehler.

Der Fehler war übrigens in Deinem Post https://www.delphipraxis.net/1490636-post18.html noch nicht enthalten.

[Mo53]

Zitat von Delphi.Narium:

Der Fehler war übrigens in Deinem Post https://www.delphipraxis.net/1490636-post18.html noch nicht enthalten.

Achso Danke für den Hinweis, dann war der Fehler wohl das Begin und End, ich weiß ehrlich gesagt auch nicht mehr wie es den Weg dahin gefunden hat

[Mo53]

Ich benötige dafür copy und pos wahrscheinlich und müsste dann zwischen den copys vergleichen, welche davon größer ist, bin mir aber nicht sicher, stimmt das so ?

[Delphi.Narium]

Nö, das geht auch ohne Copy und Pos:

Du hast eine Stelle, an der Du momentan unter einer gewissen Bedingung Number hochzählst. Dort kannst Du das Zeichen, das zum Hochzählen führt, auch an einen String dranhängen. Damit wird ein String dann jeweils solange um eine Ziffer verlängert, wie auch Number hochgezählt wird.
Ist ein Zeichen keine Ziffer, speicherst Du Number in LongNum. Dort kannst Du analog auch einen String in 'ner weiteren Variabel speichern.

Am Ende gibst Du dann statt Number den dann längsten String zurück.

Du brauchst also nur zwei Stringvariabeln zusätzlich. Der Rest ist nur eine marginale Änderung der bisherigen Funktion. Zusätzliche Abfragen, zu den bisher implementierten, sind dazu nicht nötig.
Nur der intelligente Einsatz zusätzlicher begin und end sowie der Zuweisung zu Stringvariabeln. Die Funktion dürfte dadurch um grob ein Dutzend Zeilen länger werden

[Mo53]

Zitat von Delphi.Narium:

Dort kannst Du das Zeichen, das zum Hochzählen führt, auch an einen String dranhängen.

Wie genau funktioniert das dranhängen, das habe ich nicht ganz verstanden.

[Delphi.Narium]

s := s + 'A'; oder NumberString := NumberString + s[run];