使用Delphi中的StrUtils删除SQL UPDATE语句中的最后一个逗号

uses
  StrUtils;

function RemoveLastComma(const Input: string): string;
var
  LastCommaPos: Integer;
begin
  LastCommaPos := LastDelimiter(',', Input);
  if LastCommaPos > 0 then
    Result := Copy(Input, 1, LastCommaPos - 1) + Copy(Input, LastCommaPos + 1, Length(Input))
  else
    Result := Input;
end;