Von einem String vorne und hinten alle Leerzeichen entfernen

[Delphi-Lover]

Hello,

Try this:

Delphi-Quellcode:

Function DeleteChar(strValue : String; aChar : Char) : String;
Var CharPos : Integer;
Begin
  Repeat
    CharPos:=Pos(aChar,strValue);
    If CharPos<>0 Then Delete(strValue,CharPos,1);
  Until CharPos=0;
  Result:=strValue;
End;

Greets,

Delphi-Lover.