delphi - 疑問符を削除

Question

疑問符の削除に問題があります。SQL データベースに入れたくありません。しかし、コードが機能せず、どこに問題があるのか​​わかりません。

function RemoveQMark(sWork: String): String;
begin
  Delete(sWork, 2, 4);
  Delete(sWork, Length, 2);
  Result := sWork;
end;

?最初と最後の位置のを削除したい。

Answer 1

function RemoveQMark(sWork: String): String;
begin
  Delete(sWork, 1, 1);
  Delete(sWork, Length(sWork), 1);
  Result := sWork;
end;