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...

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.

[barf00s]

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

[s14]

Oder mit:

Delphi-Quellcode:

while Pos(' ', s) > 0 do Delete(s, Pos(' ', s), 1);

wobei s natürlich einen String darstellt.

[malo]

Zitat:

Zitat von s14

Oder mit:

Delphi-Quellcode:

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 :???:

Delphi-Quellcode:

  i := Pos(' ', s);
  while i > 0 do
  begin
    Delete(s, i, 1);
    i := Pos(' ', s);
  end;

[RavenIV]

viel einfacher:

Delphi-Quellcode:

Text := StringReplace (Text, ' ', '', [rfReplaceAll ]);

hab's selber probiert, es geht ;-)

gruessle