Thema: Delphi Text ersetzen

Einzelnen Beitrag anzeigen

BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
849 Beiträge
 
Delphi 11 Alexandria
 
#1

Text ersetzen

  Alt 19. Apr 2005, 16:20
Hat jemand eine Funktion die mir in einem String nach einem Char sucht und diesen durch einen anderen String ersetzt? Der Char soll nur ersetzt werden, wenn er nicht mehrmals genau hinereinander auftritt. Wenn er 2x hintereinader auftritt soll ein Char entfernt werden.

Beispiele
Replace(s, '|', #13#10)

Das ist ein Test|und das auch. --> Das ist ein Test#13#10und das auch.
Das ist ein Test||und das auch. --> Das ist ein Test|und das auch.
Das ist||ein Test|und das|||auch. --> Das ist|ein Test#13#10und das|#13#10auch.
  Mit Zitat antworten Zitat