Trim entfernt letztes #9

[günni0]

Quick&Dirty-Lösung

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  S: String;
begin
  S := '1'+#9;
  
  S := TrimA(S);
  // oder
  S := TrimLeft(S);
end;

function TrimA(S: string): string);
begin
 Result := Trim(S) + #9;
end;