Strings

**stift**

Hallo,

gibt es eine Funktion die von einen String Leerzeichen entfernt?

MFG

Stift

**Bernhard Geyer**

Trim

**Jasocul**

Gaaaaanz schlechter Titel.
Schau mal in der Hilfe unter Trim und StringReplace.

**glkgereon**

selbst machen...

markieren

Delphi-Quellcode:

			function RemoveSpaces(Val: String):String;

var i:Integer;

begin

  Result:='';

  for i:=1 to Length(Val) do

    if Val[i]<>' ' then Result:=Result+Val[i];

end;

**BlackJack**

diese methode dürfte aber relativ langsam sein, da bei ejder iteration der string neu zusammen gesetzt wird.

"Val" solltest du deine parameter vllt nicht gerade nennen
da es eine Funktion "Val" gibt (wandelt strings in zahlen um) </blubb>

**s14**

Oder mit:

while Pos(' ', s) > 0 do Delete(s, Pos(' ', s), 1); wobei s natürlich einen String darstellt.

**malo**

Zitat von s14:

Oder mit:

while Pos(' ', s) > 0 do Delete(s, Pos(' ', s), 1); wobei s natürlich einen String darstellt.

Halte ich nicht für sinnvoll, weil Pos() ja immer zweimal aufgerufen wird. Das heißt, es wird zweimal der String durchsucht, was imho auch auf die Performence geht

**s14**

Hallo malo

besser so

markieren

Delphi-Quellcode:

			  i := Pos(' ', s);

  while i > 0 do

  begin

    Delete(s, i, 1);

    i := Pos(' ', s);

  end;

**RavenIV**

viel einfacher:
Text := StringReplace (Text, ' ', '', [rfReplaceAll ]); hab's selber probiert, es geht

gruessle

Strings

Strings

Re: Strings

Re: Strings

Re: Strings

Re: Strings

Re: Strings

Re: Strings

Re: Strings

Re: Strings

Re: Strings

Forumregeln

stift Registriert seit: 25. Mai 2005 4 Beiträge	#1 Strings 21. Jul 2005, 08:53 Hallo, gibt es eine Funktion die von einen String Leerzeichen entfernt? MFG Stift
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#2 Re: Strings 21. Jul 2005, 08:55 Trim Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

Jasocul Registriert seit: 22. Sep 2004 Ort: Delmenhorst 1.338 Beiträge Delphi 11 Alexandria	#3 Re: Strings 21. Jul 2005, 08:56 Gaaaaanz schlechter Titel. Schau mal in der Hilfe unter Trim und StringReplace. Peter
	Zitat

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#4 Re: Strings 21. Jul 2005, 08:59 selbst machen... markieren Delphi-Quellcode: function RemoveSpaces(Val: String):String; var i:Integer; begin Result:=''; for i:=1 to Length(Val) do if Val[i]<>' ' then Result:=Result+Val[i]; end; »Unlösbare Probleme sind in der Regel schwierig...«
	Zitat

BlackJack Registriert seit: 2. Jul 2005 Ort: Coesfeld 246 Beiträge Delphi 2005 Personal	#5 Re: Strings 21. Jul 2005, 11:34 diese methode dürfte aber relativ langsam sein, da bei ejder iteration der string neu zusammen gesetzt wird. See my shadow changing, stretching up and over me. Soften this old armor. Hoping I can clear the way By stepping through my shadow, coming out the other side. Step into the shadow. Forty six and two are just ahead of me.
	Zitat

barf00s (Gast) n/a Beiträge	#6 Re: Strings 21. Jul 2005, 11:42 "Val" solltest du deine parameter vllt nicht gerade nennen da es eine Funktion "Val" gibt (wandelt strings in zahlen um) </blubb>
	Zitat

s14 Registriert seit: 15. Mai 2003 Ort: München 251 Beiträge Delphi 7 Architect	#7 Re: Strings 21. Jul 2005, 11:56 Oder mit: while Pos(' ', s) > 0 do Delete(s, Pos(' ', s), 1); wobei s natürlich einen String darstellt.
	Zitat

malo Registriert seit: 19. Sep 2004 2.115 Beiträge	#8 Re: Strings 21. Jul 2005, 12:00 Zitat von s14: Oder mit: while Pos(' ', s) > 0 do Delete(s, Pos(' ', s), 1); wobei s natürlich einen String darstellt. Halte ich nicht für sinnvoll, weil Pos() ja immer zweimal aufgerufen wird. Das heißt, es wird zweimal der String durchsucht, was imho auch auf die Performence geht
	Zitat

s14 Registriert seit: 15. Mai 2003 Ort: München 251 Beiträge Delphi 7 Architect	#9 Re: Strings 21. Jul 2005, 12:05 Hallo malo besser so markieren Delphi-Quellcode: i := Pos(' ', s); while i > 0 do begin Delete(s, i, 1); i := Pos(' ', s); end;
	Zitat

RavenIV Registriert seit: 12. Jan 2005 Ort: Waldshut-Tiengen 2.875 Beiträge Delphi 2007 Enterprise	#10 Re: Strings 21. Jul 2005, 13:43 viel einfacher: Text := StringReplace (Text, ' ', '', [rfReplaceAll ]); hab's selber probiert, es geht gruessle Klaus E. Linux - das längste Text-Adventure aller Zeiten... Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
	Zitat