list index out of bounds (4) - что за зверь?

[piksel111]

Вот код:

function TOAuthRequest.GetSignableParameters: string;
var
  x: integer;
  parm: string;
begin
  parm := '';
  x := FParameters.IndexOfName('oauth_signature');
  if x <> -1 then
    FParameters.Delete(x);
  for x := 0 to FParameters.Count -1 do
  begin
    if x = 0 then
    begin
      FParameters.ValueFromIndex[x] := TOAuthUtil.urlEncodeRFC3986(FParameters.ValueFromIndex[x]);
      parm := FParameters.Names[x] + TOAuthUtil.urlEncodeRFC3986('=') + TIdURI.PathEncode(FParameters.ValueFromIndex[x]);
    end
    else
    begin
!!! тут тормозит дебагер      parm := parm +  TOAuthUtil.urlEncodeRFC3986('&') +
              FParameters.Names[x] + TOAuthUtil.urlEncodeRFC3986('=' + FParameters.ValueFromIndex[x])
    end;
  end;
  Result := parm;
end;

В чём проблема?

[Человек_Борща]

list index out of bounds, выход за грани дозволенного
т.е. у вас есть последовательность от 0 до 32, вы пытаетесь стучать в 33, которого в этой последовательности нету, следовательно вызывается такое исключение.
Проще - это обращение к не существующему элементу, или к элементу с не существующим индексом.


проблема целиком и полностью в вашем for to do

может вам стоит начинать с 1 и убрать -1, а может вам нужно начинать с 0 и убрать -1... просто проведите эксперимент. Все зависит от того, чему принадлежит ваш .Count. Массив, список, стёк..

P.S. вскобках указывается оибочный индекс(к которому стучала программа и выпала в осадок отладчика).

[piksel111]

Получил ответ:
После выполнения цикла в Names[x] идет обращение к переменной цикла, которая в Delphi (да и в любом Паскале) принимает значение БОЛЬШЕЕ верхней границы.

В вашем случае - Count.

Только я вот ничего и не понял из этого. Как исправить то?

Эксперименты пробовал не помогает

[_Troy]

Проверь что лежит в FParameters.ValueFromIndex[x] (попробуй без него сделать, если ошибки не будет, то копай дальше в эту сторону) и пользуйся F7 вместо F9

[piksel111]

Сообщение от _Troy

Проверь что лежит в FParameters.ValueFromIndex[x] (попробуй без него сделать, если ошибки не будет, то копай дальше в эту сторону) и пользуйся F7 вместо F9

Пробовал ошибка остаётся.


Это вообще беда что я только не делал всё равно она вылетает..

[_Troy]

А так пробовал?)))

for x := 0 to 0 do

А какого вида лежит инфа в FParameters?

[piksel111]

Сообщение от _Troy

А так пробовал?)))

for x := 0 to 0 do

А какого вида лежит инфа в FParameters?

так не выдаёт.

FParameters: TStringList;

Самое интересное что когда пол года назад я работал с этой библиотекой на другой версии делфи, всё было отлично =(

[_Troy]

Не знаю...
Попробуй еще такие варианты поочереди

parm := parm +  TOAuthUtil.urlEncodeRFC3986('&')
parm := parm +  TOAuthUtil.urlEncodeRFC3986('&') + FParameters.Names[x]
parm := parm +  FParameters.Names[x]
parm := parm +  TOAuthUtil.urlEncodeRFC3986('=' + FParameters.ValueFromIndex[x])
parm := parm +  FParameters.ValueFromIndex[x]

И что такое TOAuthUtil?

[piksel111]

for x := FParameters.Count -1 downto 0 do

так работает, но не так как нужно, ибо задом наперёд всё делает.

Сообщение от _Troy

И что такое TOAuthUtil?

ошибка не в нём.

Есть ещё советы?

[p51x]

Наконец-то включить дебагер и посмотреть где, почему ошибка... Вы разб\работкой впервые занялись?