Von einem String vorne und hinten alle Leerzeichen entfernen

[Klaus01]

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

Just a remark to your code.
Your Code will also delete characters that are located
in the String and not only the leading and trailing characters.

Regards
Klaus