list index out of bounds / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / list index out of bounds

36 сообщений из 36, показаны все 2 страниц

все

list index out of bounds

#39666618

elimpion

Гость

подскажите как исправить ошибку, возникает в этой строчке

Код: sql

InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

сам код программы

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.

procedure TfrmEditDevice.InitCheckComboBox(App: TFuncApp; ctrl: TCheckedComboBox; aSql: string; aStr: string; const ParamArr: array of const);
var s: string;
    i: integer;
    bool: boolean;
    que: TOraQuery;
begin
  que := GetQueryBySQL(aSql, ParamArr);
  try
    with ctrl do begin
      Clear;
      with que do begin
        First;
        while not Eof do begin
          s := '';
          if (que.FieldCount = 3) then
            if Fields[2].asString <> '' then
              s := '['+Fields[2].asString+'] ';
          Items.Add(Fields[0].asString+' - '+s+Fields[1].asString);
          Next;
        end;
      end;
      for i := 1 to Items.Count do begin
        s := Trim(GetWord(1,Items[i-1],['-']));
        bool := IsWordPresent(s,aStr,[',']);
        Checked[i-1] := bool;
      end;
    end;
  finally
    que.Close;
    App.QI.FreeQuery(que);
  end;
end;

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.

type
    shDEV_PAYSYSTEM: TOraScript;
    ccbDEV_PAYSYSTEM: TCheckedComboBox;
...
var aApp:TFuncApp;
FContractKind: integer;
...
InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

...

Рейтинг:

0 / 0

27.06.2018, 15:30

| Ответить | Цитировать | Написать

list index out of bounds

#39666623

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

я конечно не специалист, но имхо, тут нужен программист...
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

27.06.2018, 15:35

| Ответить | Цитировать | Написать

list index out of bounds

#39666630

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

elimpion,

Либо в Fields меньше полей, чем ты думаешь, либо в Items. Но Fields у меня вызывает больше подозрений.

P.S. О назначении магических клавиш F7 и F8 и не менее магического заклинания "breakpoint АКА точка останова" ты догадываешься, но значения не придаешь?

...

Рейтинг:

0 / 0

27.06.2018, 15:44

| Ответить | Цитировать | Написать

list index out of bounds

#39666632

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

elimpion,

В датасете только одно поле?

Или в OraQuery появилось свойство Items?

Ставлю на первое предположение

...

Рейтинг:

0 / 0

27.06.2018, 15:44

| Ответить | Цитировать | Написать

list index out of bounds

#39666633

под ван

Гость

Вряд ли именно в этом дело, но после беглого чтения я бы для начала написал так:

Код: pascal

for i := 1 to Items.Count -1

...

Рейтинг:

0 / 0

27.06.2018, 15:46

| Ответить | Цитировать | Написать

list index out of bounds

#39666634

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

DarkMasterлибо в ItemsПо Items у него цикл. Но двойной with может преподнести свои сюрпризы

...

Рейтинг:

0 / 0

27.06.2018, 15:47

| Ответить | Цитировать | Написать

list index out of bounds

#39666635

под ван

Гость

А ещё лучше так:

Код: pascal

for i := 0 to Items.Count -1

...

Рейтинг:

0 / 0

27.06.2018, 15:48

| Ответить | Цитировать | Написать

list index out of bounds

#39666636

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

_Vasilisk_,

В этом коде еще и не такое может быть :) Поменяют в SQL запросе поля местами - и привет... Очень заботливо грабельки разложены - заглядение просто.

P.S. With тоже доставляет... Спасибо хоть не WITH Object1,Object2,Object3 ....

...

Рейтинг:

0 / 0

27.06.2018, 15:48

| Ответить | Цитировать | Написать

list index out of bounds

#39666639

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

под ваня бы для начала написал так:

Код: pascal

for i := 1 to Items.Count -1

А я бы так не писал. Особенно если хотел бы перебрать все записи

...

Рейтинг:

0 / 0

27.06.2018, 15:48

| Ответить | Цитировать | Написать

list index out of bounds

#39666641

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

под ван,

У него [i-1] при обращении к элементу, так что вроде норма. Но зачем делать на пустом месте еще одно вычисление - это уже не ко мне..

...

Рейтинг:

0 / 0

27.06.2018, 15:49

| Ответить | Цитировать | Написать

list index out of bounds

#39666643

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

о! набежали ПРОГРАММИСТЫ...
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

27.06.2018, 15:50

| Ответить | Цитировать | Написать

list index out of bounds

#39666646

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

Мимопроходящий,

Ну не всеж эсквайрам изголятся :)

...

Рейтинг:

0 / 0

27.06.2018, 15:51

| Ответить | Цитировать | Написать

list index out of bounds

#39666647

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

Мимопроходящийо! набежали ПРОГРАММИСТЫ...В Украине сегодня пятница

...

Рейтинг:

0 / 0

27.06.2018, 15:51

| Ответить | Цитировать | Написать

list index out of bounds

#39666650

goldmi45

Участник

Сообщения: 1 307

Рейтинг: 0 / 0

а я бы по-старинке

Код: pascal

for i:=0 to Items.Count -1 do

тем более, что
elimpion

Код: sql

1.
2.
3.

        s := Trim(GetWord(1,Items[i-1],['-']));
        bool := IsWordPresent(s,aStr,[',']);
        Checked[i-1] := bool;

А with это зло. :)

...

Рейтинг:

0 / 0

27.06.2018, 15:52

| Ответить | Цитировать | Написать

list index out of bounds

#39666655

elimpion

Гость

с процедурой InitCheckComboBox. все нормально, она работает в других программах и никаких ошибок не возникает.
тут дело в этой строчке

Код: pascal

 InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

ошибка к ней ведет

...

Рейтинг:

0 / 0

27.06.2018, 15:54

| Ответить | Цитировать | Написать

list index out of bounds

#39666660

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

elimpion,

F7...F7! ... F7 !!!!

...

Рейтинг:

0 / 0

27.06.2018, 15:59

| Ответить | Цитировать | Написать

list index out of bounds

#39666665

zinpub

Гость

elimpion,

А вот это что GetCheckComboBoxValue ? Код в смысле

...

Рейтинг:

0 / 0

27.06.2018, 16:00

| Ответить | Цитировать | Написать

list index out of bounds

#39666667

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

elimpionс процедурой InitCheckComboBox. все нормально, она работает в других программах и никаких ошибок не возникает.
тут дело в этой строчке

Код: pascal

 InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

Которая, внимание, вызывает процедуру, с которой "все нормально"

...

Рейтинг:

0 / 0

27.06.2018, 16:01

| Ответить | Цитировать | Написать

list index out of bounds

#39666687

elimpion

Гость

zinpubelimpion,

А вот это что GetCheckComboBoxValue ? Код в смысле

Код: plsql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

function GetCheckComboBoxValue(ctrl: TCheckedComboBox): string;
var aStr : string;
    i    : integer;
begin
  aStr := '';
  result := '';
  with ctrl do begin
    for i := 1 to Items.Count do begin
      if Checked[i-1] then
        aStr := aStr + Trim(GetWord(1,Items[i-1],['-']))+',';
    end;
  end;
  if aStr <> '' then
    delete(aStr,Length(aStr),1);
  result := aStr;
end;

...

Рейтинг:

0 / 0

27.06.2018, 16:21

| Ответить | Цитировать | Написать

list index out of bounds

#39666688

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

elimpion,

Функция у тебя что, всегда пустую строку возвращает?-))))

...

Рейтинг:

0 / 0

27.06.2018, 16:23

| Ответить | Цитировать | Написать

list index out of bounds

#39666689

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

DarkMaster,

А нет, поправка, там последний символ только удаляется. Недосмотрел.

...

Рейтинг:

0 / 0

27.06.2018, 16:24

| Ответить | Цитировать | Написать

list index out of bounds

#39666693

zinpub

Гость

elimpion,

Ндя... тяжко так.

Повторюсь за DarkMaster - ищи точную строку...

...

Рейтинг:

0 / 0

27.06.2018, 16:27

| Ответить | Цитировать | Написать

list index out of bounds

#39666696

softwarer

Участник

Откуда: 127.0.0.1

Сообщения: 51 965

Рейтинг: 0 / 0

goldmi45А with это зло. :)
И на некоторые программы - явно зла не хватает.

...

Рейтинг:

0 / 0

27.06.2018, 16:30

| Ответить | Цитировать | Написать

list index out of bounds

#39666709

goldmi45

Участник

Сообщения: 1 307

Рейтинг: 0 / 0

elimpion,

Ужос.

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

function GetCheckComboBoxValue(ctrl: TCheckedComboBox): string;
var 
    i: integer;
begin
  result := '';
  if not Assigned(ctrl) then
    Exit;
  for i := 0 to ctrl.Items.Count - 1 do 
      if ctrl.Checked[i] then
      begin
        if Result <> '' then
          Result := Result + ',';
        Result := Result + Trim(GetWord(1, ctrl.Items[i], ['-']));
      end;
  end;
end;

С TCheckedComboBox незнаком. С GetWord тоже.

...

Рейтинг:

0 / 0

27.06.2018, 16:50

| Ответить | Цитировать | Написать

list index out of bounds

#39666737

elimpion

Гость

goldmi45elimpion,

Ужос.

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

function GetCheckComboBoxValue(ctrl: TCheckedComboBox): string;
var 
    i: integer;
begin
  result := '';
  if not Assigned(ctrl) then
    Exit;
  for i := 0 to ctrl.Items.Count - 1 do 
      if ctrl.Checked[i] then
      begin
        if Result <> '' then
          Result := Result + ',';
        Result := Result + Trim(GetWord(1, ctrl.Items[i], ['-']));
      end;
  end;
end;

С TCheckedComboBox незнаком. С GetWord тоже.
не помогло, ошибка та же осталась.
провел трассировку ошибка выбивает тут

Код: pascal

InitCheckComboBox(aApp, ccbDEV_PAYSYSTEM, shDEV_PAYSYSTEM.SQL.Text, GetCheckComboBoxValue(ccbDEV_PAYSYSTEM), [FContractKind]);

и тут

Код: pascal

  que := GetQueryBySQL(aSql, ParamArr);

...

Рейтинг:

0 / 0

27.06.2018, 17:29

| Ответить | Цитировать | Написать

list index out of bounds

#39666738

zinpub

Гость

elimpion,

Что по F7, на этой строчке ошибка вылетает???

...

Рейтинг:

0 / 0

27.06.2018, 17:37

| Ответить | Цитировать | Написать

list index out of bounds

#39666749

Gerasimenko

Участник

Сообщения: 4 788

Рейтинг: 0 / 0

zinpubelimpion,

Что по F7, на этой строчке ошибка вылетает???

Что-то я [u

Var[/u] не вижу...]

авторprocedure TfrmEditDevice.InitCheckComboBox(App: TFuncApp; ctrl: TCheckedComboBox; aSql: string; aStr: string; const ParamArr: array of const);
...
with ctrl do begin
...
Items.Add(Fields[0].asString+' - '+s+Fields[1].asString);
...
Checked[i-1] := bool;

...

Рейтинг:

0 / 0

27.06.2018, 17:46

| Ответить | Цитировать | Написать

list index out of bounds

#39666764

Мимопроходящий

Участник

Откуда: бурятский тундрюк, эсквайр

Сообщения: 33 443

Рейтинг: 0 / 0

27.06.2018 17:46, Gerasimenko пишет:
> Что-то я_*Var*_ не вижу..

а зачем передавать экземпляр класса по Var ?
Posted via ActualForum NNTP Server 1.5

...

Рейтинг:

0 / 0

27.06.2018, 17:59

| Ответить | Цитировать | Написать

list index out of bounds

#39666766

Gerasimenko

Участник

Сообщения: 4 788

Рейтинг: 0 / 0

Мимопроходящий27.06.2018 17:46, Gerasimenko пишет:
> Что-то я_*Var*_ не вижу..

а зачем передавать экземпляр класса по Var ?
А... ну да...

...

Рейтинг:

0 / 0

27.06.2018, 18:00

| Ответить | Цитировать | Написать

list index out of bounds

#39666906

goldmi45

Участник

Сообщения: 1 307

Рейтинг: 0 / 0

[quot elimpion
не помогло, ошибка та же осталась.
[/quot]
Как вы отлаживаете код, не понятно. Программа должна быть скомпилена в режиме Debug, (на закладке Compiler установлены - Debug information, Local symbols, Use debug DCUs; сняты - Optimization, Range checking. На закладке Linker: Map file - Detailed, Exe and DLL options - Include debug info, Include debug symbols). Ставите точку останова (F5) на InitCheckComboBox, нажимаете F9. Как остановились на точке останова, нажимаете F7 до тех пор, пока не возникнет ошибка.
Возможно, в представленном коде и нет ошибок, а ошибка в коде компонента TCheckedComboBox.

...

Рейтинг:

0 / 0

28.06.2018, 08:25

| Ответить | Цитировать | Написать

list index out of bounds

#39666940

zinpub

Гость

goldmi45... а ошибка в коде компонента TCheckedComboBox.

А что за компонент кстати?

...

Рейтинг:

0 / 0

28.06.2018, 09:42

| Ответить | Цитировать | Написать

list index out of bounds

#39667064

goldmi45

Участник

Сообщения: 1 307

Рейтинг: 0 / 0

zinpubgoldmi45... а ошибка в коде компонента TCheckedComboBox.

А что за компонент кстати?
Кто его знает... По названию комбобокс, у которого айтемы - чекбоксы.
На мой взгляд, лучше чеклистбокс: у комбика скрываются айтемы. А судя по коду ТС, отмеченных айтемов может быть несколько.
Вот тут 21521805 присутствуют эти компоненты (комбобокс у Платежные системы).

...

Рейтинг:

0 / 0

28.06.2018, 12:12

| Ответить | Цитировать | Написать

list index out of bounds

#39667065

zinpub

Гость

goldmi45zinpubпропущено...

А что за компонент кстати?
Кто его знает... По названию комбобокс, у которого айтемы - чекбоксы.
На мой взгляд, лучше чеклистбокс: у комбика скрываются айтемы. А судя по коду ТС, отмеченных айтемов может быть несколько.
Вот тут 21521805 присутствуют эти компоненты (комбобокс у Платежные системы).

Посмотреть бы, эт собственно к ТСу вопрос... может какая наколенная поделка

...

Рейтинг:

0 / 0

28.06.2018, 12:16

| Ответить | Цитировать | Написать

list index out of bounds

#39667496

elimpion

Гость

проверил программу через точку останова f7 + f8 программа выдает ошибку в этой функции

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

function GetCheckComboBoxValue(ctrl: TCheckedComboBox): string;
var aStr : string;
    i    : integer;
begin
  aStr := '';
  result := '';
  with ctrl do begin
    for i := 1 to Items.Count do begin
      if Checked[i-1] then
        aStr := aStr + Trim(GetWord(1,Items[i-1],['-']))+',';
    end;
  end;
  if aStr <> '' then
    delete(aStr,Length(aStr),1);
  result := aStr;
end;

когда доходит до последней строки(end;)

...

Рейтинг:

0 / 0

29.06.2018, 09:50

| Ответить | Цитировать | Написать

list index out of bounds

#39667497

DarkMaster

Участник

Откуда: Donetsk,Ukraine

Сообщения: 6 681

Рейтинг: 0 / 0

elimpion,

Проверь, что у тебя ctrl<>nil. Посмотри стэк вызовов. Возможно опять-таки твоя магическая GetWord() себя как-то не так ведет.

...

Рейтинг:

0 / 0

29.06.2018, 09:54

| Ответить | Цитировать | Написать

list index out of bounds

#39667507

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

elimpionпроверил программу через точку останова f7 + f8 программа выдает ошибку в этой функции

Код: pascal

function GetCheckComboBoxValue(ctrl: TCheckedComboBox): string;

когда доходит до последней строки(end;)Бинго! При нажатии F8 на последней строке, мы выполняем, сюрприз!, функцию InitCheckComboBox

...

Рейтинг:

0 / 0

29.06.2018, 10:21

| Ответить | Цитировать | Написать

36 сообщений из 36, показаны все 2 страниц

все

Форумы / Delphi [игнор отключен] [закрыт для гостей] / list index out of bounds

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=58&tid=2040680]:	0ms
get settings:	11ms
get forum list:	19ms
check forum access:	5ms
check topic access:	5ms
track hit:	214ms
get topic data:	11ms
get forum data:	3ms
get page messages:	73ms
get tp. blocked users:	2ms
others:	245ms

total:	588ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы