TrimChars

[PeterPanino]

Hallo,

ich habe eine Trim-Funktion gesucht, die am Anfang und/oder am Ende eines Strings beliebige Zeichen löscht. Da ich keine solche Funktion gefunden habe, habe ich selbst eine geschrieben. Eure Meinung dazu bitte:

Delphi-Quellcode:

function PATrimChars(S: string; CS: TSysCharSet; T: Char): string;
var
  i: integer;
begin
  Result := S;
  if T in ['L', 'B'] then // L = Left, B = Both
  begin
    for i := 1 to Length(Result) do
    begin
      if not (Result[i] in CS) then
      begin
        Result := Copy(Result, i, Length(Result) - i + 1);
        BREAK;
      end;
    end;
  end;
  if T in ['R', 'B'] then // R = Right, B = Both
  begin
    for i := Length(Result) downto 1 do
    begin
      if not (Result[i] in CS) then
      begin
        Result := Copy(Result, 1, i);
        BREAK;
      end;
    end;
  end;
end;