AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Leerzeichen in einem String rauslöschen

Ein Thema von Tails · begonnen am 20. Nov 2014 · letzter Beitrag vom 21. Nov 2014
Antwort Antwort
Der schöne Günther

Registriert seit: 6. Mär 2013
6.199 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

AW: Leerzeichen in einem String rauslöschen

  Alt 21. Nov 2014, 19:24
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.
  Mit Zitat antworten Zitat
Dejan Vu
(Gast)

n/a Beiträge
 
#2

AW: Leerzeichen in einem String rauslöschen

  Alt 21. Nov 2014, 19:33
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.
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz