Удалить вопросительные знаки

Question

У меня проблема с удалением вопросительных знаков. Я не хочу их в своей SQL-базе данных. Но мой код не работает, и я не знаю, где проблемы.

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

Я хочу удалить ? в первой и последней позиции.

Answer 1

Нет необходимости использовать Delete на переданной в строке. Просто используйте функцию Delphi Copy скопировать все, кроме первых и последних символов непосредственно к результату:

function RemoveQMark(const sWork: String): String; 
begin 
    Result := Copy(sWork, 2, Length(sWork) - 2); 
end; 

Использование conston string arguments позволяют компилятору генерировать более эффективный код. (Без const счетчик ссылок строк увеличивается в начале функции и уменьшается в конце (в блоке try ... finally)).

Answer 2

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