Leerzeichen aus dem String löschen ?

[AJ_Oldendorf]

Du musst folgendes schreiben:

Variable := Trim(Variable); Siehe Delphi Hilfe:

function Trim(const S: string): string;


Viele Grüße
Alex

[aaaaaaaaaa_10]

Ich glaub es ja nicht. Das geht? So ne Kleinigkeit. Aber vielen Dank an alle.

[himitsu]

Trim entfernt auch Zeilenumbrüche (#13 und #10), sowie Tabs (#9)

Ist das "zusätzliche" Leerzeichen vielleicht mitten im String?

Außerdem sollte der Debugger alle Zeichen anzeigen (Steuerzeichen werden da ja konvertiert)

[alzaimar]

Zitat von himitsu:

Trim entfernt auch Zeilenumbrüche (#13 und #10), sowie Tabs (#9)

Welche 'Trim'-Version hast Du? Die in den SysUtils.Pas macht das nicht...

[edit]Bitte nicht so ernst nehmen. Erklärung weiter unten. hüstel [/edit]

[himitsu]

nicht?
ich dachte des war so

(und ja, ich verwende 'ne eigene Lib)

[add]
hatte doch Recht
<= ' '
entfernt Leerzeichen und alle Steuerzeichen im Bereich von #0 bis #32

Delphi-Quellcode:

function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  if I > L then Result := '' else
  begin
    while S[L] <= ' ' do Dec(L);
    Result := Copy(S, I, L - I + 1);
  end;
end;

[alzaimar]

'<=' war eben noch nicht in meiner SysUtils.Pas. Ehrlich nicht. Ich schwöre. Das ist grad eben erst dort erschienen.

Alter, ismir das peinlich.