Delphi Aufeinander folgende Whitespaces entfernen, eins lassen

Thema durchsuchen

Ansicht

Themen-Optionen

Aufeinander folgende Whitespaces entfernen, eins lassen

Ein Thema von Mois · begonnen am 20. Mär 2005 · letzter Beitrag vom 20. Mär 2005

Vorheriger Beitrag

Nächster Beitrag

SirThornberry

(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge

Delphi 2006 Professional

Re: Aufeinander folgende Whitespaces entfernen, eins lassen

20. Mär 2005, 12:38

suche mit pos/PosEx einfach nach Leerzeischen und entferne alle leerzeischen die direkt dahinter folgen.

@alcaeus: Deine variante hat den Nachteil das kein leerzeischen bleibt falls eine gerade anzahl an leerzeischen hintereinander steht.
desweiteren ist die whileschleife nicht notwendig wenn du mit "rfReplaceAll" arbeitest.
desweiteren sollte der erste parameter von StringReplace der String (Str) sein und nicht " "

Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's