Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.736 Beiträge
Delphi 6 Enterprise
|
AW: Austauschen einer Case Anweisung mit einer Sinnvolleren
28. Mai 2021, 08:58
Du gehst mit einer schleife das wort durch und kopierst jeden buchstaben in eine zwischenvariable, stöst du dabei auf einen operator setzt du eine Boolean auf true. Kommst du an ein Leerzeichen (oder das Ende des Satzes) dann schaust du: War ein Operator drin, dann kopier das wort in eine neue Variable Ergebnis. War diese Variable zuvor nicht leer, ergänze erst ein Leerzeichen und hänge dann den Wert der Zwischenvariablen dran. Ist in der Zwischenvariablen kein Operator, dann leere sie einfach. Setzte die Boolean wieder auf False. Weiter gehts.
Ralph
|