Index List ofbounds (16)

[Johnson]

Сдрасте вам) у меня возникла проблемма при создании большого списка...вобщем есть файл. в в каждой строке файла набор переменных, разделенных знаком табуляции. я сначала гружу весь файл в StringList, потом перебираю каждую строку и записываю во второй StringList через .LineBreak, следом переношу из второго в массив рекордов... когда все строки прочитаны - переношу данные из массива в ListView
всё бы хорошо, но добавляются только 2277 строк, хотя всего их 2.7к+, при этом вылазит ошибка "List index out of bounds (16)"

вот частичный код:

All_Lines:= TStringList.Create;
massiv_tmp:=TStringList.Create;
sleep(3000);
All_Lines.LoadFromFile('temp.txt');
SetLength(massiv,All_lines.Count+1);

for I := 1 to All_Lines.Count - 1 do          //Именно начиная с 1 !!! в 0 строке хранятся заголовки!
begin
massiv_tmp.LineBreak:=#9;
massiv_tmp.Text:=All_Lines.Strings[I];
massiv[I].ID            :=massiv_tmp[0];
massiv[I].UNK_0         :=massiv_tmp[1];
massiv[I].messageA      :=massiv_tmp[2];
massiv[I].group         :=massiv_tmp[3];
massiv[I].rgba_0        :=massiv_tmp[4];
massiv[I].rgba_1        :=massiv_tmp[5];
massiv[I].rgba_2        :=massiv_tmp[6];
massiv[I].rgba_3        :=massiv_tmp[7];
massiv[I].item_sound    :=massiv_tmp[8];
massiv[I].sys_msg_ref   :=massiv_tmp[9];
massiv[I].UNK_1         :=massiv_tmp[10];
massiv[I].UNK_2         :=massiv_tmp[11];
massiv[I].UNK_3         :=massiv_tmp[12];
massiv[I].UNK_4         :=massiv_tmp[13];
massiv[I].UNK_5         :=massiv_tmp[14];
massiv[I].sub_msg       :=massiv_tmp[15];
massiv[I].typeA         :=massiv_tmp[16];

  with ListView1.Items.Add do begin
  Caption:=massiv[I].ID;
  Subitems.Add(massiv[I].messageA);
  end;

end;

end;

Подскажите, где я допустил ошибку?

[Stilet]

Скорее всего здесь:

massiv[i].typeA :=massiv_tmp[16];

Проверь размерность.

и записываю во второй StringList через .LineBreak

Это вообщето немного извращенно, поскольку такие вещи делаются через DelimitedText.

Кста, такое вещи лучше в БД хранить...

[Serge_Bliznykov]

а где описание переменной massiv ?
massiv : array ....... (заполнить пропущенное...)

[Johnson]

Описание:

  massiv: array of record
    ID, UNK_0, group, sys_msg_ref,
    UNK_1, UNK_2, UNK_3, UNK_4, UNK_5,
    messageA, item_sound, sub_msg, typeA, rgba_0, rgba_1, rgba_2, rgba_3: string;
  end;

размерность в порядке, 17 переменных описываю, 17 и читаю...
к томуже если размерность была бы не в порядке - код выводил бы охинею, а большую часть текста он парсит нормально, без ошибок, а на строке 2278 почемуто вылетает

[Johnson]

Всё, разобрался... как говорится "дело было не в бабине - раздолбай сидел в кабине"...
виноват текст был, в строке 2278 отсутствовал один знак табуляции

кстати с охотой приму советы по поводу организации парсинга )
DelimiterText я не умею пользоваться, не разу не применял и не встречал нигде