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;