|
Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
Delphi 2006 Professional
|
Re: Redundanz im String erkennen
10. Nov 2008, 10:54
Hai crovex666,
ich habe jetzt gerade kein Delphi zur Hand. Aber ich würde das anders machen.
Eine Repeat-Until-Schleife, eine Zählervariable und eine boolean.
Zähler auf 1 und Boolean auf False. Jetzt prüfst Du in der Schleife ob string[i] = string[i+1] ist. Wenn ja boolean := true. Dann die Zählervariable um eines erhöhen.
Die Abbruchbedingung der Schleife wäre dann Until (zähler = stringlänge) oder boolean
Stephan B.
"Lasst den Gänsen ihre Füßchen"
|