Leerzeichen in einem String rauslöschen

[p80286]

Zitat von himitsu:

Delphi-Quellcode:

while position(FromText,text)>0 do
  replace(Text,FromText,ToText)

Bei Sowas muß man aufpassen, wenn der Suchtext ganz oder Teilweise im Ersetzungstext mit drin ist. > endlosscheife oder unerwartete Ereigebnisse.

So ad hoc:
zum einen kann eine unvollständige Ersetzung durchaus gewollt sein, dann setzt man diese Schleife natürlich nicht ein, zum anderen sollte der Programmierer

Zitat:

Suchtext ganz oder Teilweise im Ersetzungstext

erkennen können und sich dann vorher ein paar Gedanken machen.

Aber vielleicht ganz gut, daß Du das nochmal ins Bewußtsein rückst.

Gruß
K-H

[Dejan Vu]

Falls es noch jemanden interessiert: Ich mach das in einer Schleife (bzw. würde es bei langen Strings so machen):

Delphi-Quellcode:

Function ZapSpaces (Const s: String) : String;
Begin
  Result := '';
  for c in s do if c<>' ' then Result:=Result+c;
End;

Wegen FastMM4 als Speichermanager auch schnell genug. Meiner Meinung nach schneller als ReplaceString.

[Der schöne Günther]

Also das wäre mein Ansatz:

Delphi-Quellcode:

uses System.SysUtils, System.Character;

type
   IStringManipulator<T> = interface
   ['{F898C39A-F08E-452B-8948-343AC92C77A3}']
      function manipulate(const what: String): T;
   end;

   TSpaceZapper = class(TInterfacedObject, IStringManipulator<String>)
      protected var
         stringBuilder: TStringBuilder;
         characterPredicate: TPredicate<Char>;


      public
         constructor Create();
         destructor Destroy(); override;

         // IStringManipulator<String>
         function manipulate(const what: String): String;
    end;

constructor TSpaceZapper.Create();
begin
   inherited Create();
   stringBuilder := TStringBuilder.Create();

   characterPredicate :=
      function(item: Char): Boolean
      begin
         Result := not item.IsWhiteSpace();
      end;
end;

destructor TSpaceZapper.Destroy();
begin
   stringBuilder.Destroy();
   inherited;
end;

function TSpaceZapper.manipulate(const what: String): String;
var
   containedChar: Char;
begin
   stringBuilder.Clear();

   for containedChar in what do
      if characterPredicate(containedChar) then
         stringBuilder.Append(containedChar);

   Result := stringBuilder.ToString();
end;

Ich finde meinen Ansatz total toll, denn er ist total einfach zu benutzen:

Delphi-Quellcode:

var
   myElaborateStringManipulator: IStringManipulator<String>;
begin
   try
      myElaborateStringManipulator := TSpaceZapper.Create();
      WriteLn( myElaborateStringManipulator.manipulate('Hallo Welt ').QuotedString() );
   except
      on E: Exception do Writeln(E.ClassName, ': ', E.Message);
   end;
end.

Nein, ernsthaft. Ich wollte nur einwerfen dass ein Vergleich mit Anführungszeichen, Leertaste drücken, Anführungszeichen eine Menge anderer "Whitespaces" nicht erwischt.

[Dejan Vu]

Na dann haut man da ein "in [' ',#8,#13,#10]" rein. Im Titel steht übrigens Leerzeichen, was meiner bescheidenen Ansicht nach nicht mit weißer Leere übersetzt wird (oder weißen Welträumen) oder.. Und auch sonst taucht dieses Stichwort im Thread nur sehr spärlich auf. Um es mal übertrieben auszudrücken.