Поиск по наименованию и суммирование (Memo)

[cybernewbie]

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

Код только с массивами без динамических списков

Заменил динамические списки на массивы, для такого вида текста:

class: 1234
buf: 2323
prod:
 name: msi 990
 col: red
 quantity: 1
prod:
 name: micro 500
 col: blue
 quantity: 1
prod:
 name: msi 990
 col: red
 quantity: 2
prod:
 name: allso
 col: blue
 quantity: 1
prod:
 name: micro 500
 col: blue
 quantity: 1
book: open
TF: open

Спасибо

[macomics]

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

Почему именно 4?

Это комментарий для структуры вида

prod:
 name: test name
 col: blue
 quantity: 1

в ней 4 строки. Значит зная общее количество строк в тексте (Lines.Count) можно вычислить возможное количество структур, которое может поместиться в этом тексте. Это количество вычисляется по формуле: <количество строк в тексте> / <количество строк в одной структуре> = <максимальное число структур в тексте>. Если при увеличении длины структуры я не изменил в комментарии цифру 4 на 10, то это просто очепятка не влияющая на работу программы.

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

Попробовал такие условия, структуры объединяются, но почему то суммируются не так:

Это связано с тем, что я при обработке поля quantity рассчитывал на то, что между названием и числом будет не только двоеточие, но еще и пробел. Дело не в условии. Исправьте 11 на 10:

copy(Lines[ind[j] + 3], 11)

[macomics]

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

Влияет ли значение этой переменной на количество начальных пропущенных строк?
Заранее спасибо

Цикл идет с последней строки к первой. Если количество строк пропущенных с конца текста меньше длины структуры, тогда при попытке считать структуру мы получим ошибку array index out of bounds (индекс массива вышел за границы диапазона). Тоже самое необходимо соблюдать при обработке двух соседних структур. Если число строк меньше длины структуры, тогда в следующей структуре одно из полей будет иметь значение prod: и т.д. Это тоже ошибка. Чтобы избежать обоих ошибок надо посчитать количество строк не являющихся началом структуры ('prod:').

ADD: В алгоритме приложенном в файле я также сделал проверку на присутствие в структуре всех ее полей.

[cybernewbie]

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

Это комментарий для структуры вида

Да, я потом это понял, прочитал листинги ещё раз.

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

в ней 4 строки. Значит зная общее количество строк в тексте (Lines.Count) можно вычислить возможное количество структур, которое может поместиться в этом тексте. Это количество вычисляется по формуле: <количество строк в тексте> / <количество строк в одной структуре> = <максимальное число структур в тексте>. Если при увеличении длины структуры я не изменил в комментарии цифру 4 на 10, то это просто очепятка не влияющая на работу программы.

Понял Вас

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

Это связано с тем, что я при обработке поля quantity рассчитывал на то, что между названием и числом будет не только двоеточие, но еще и пробел. Дело не в условии. Исправьте 11 на 10:

Да получилось, спасибо.

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

Цикл идет с последней строки к первой. Если количество строк пропущенных с конца текста меньше длины структуры, тогда при попытке считать структуру мы получим ошибку array index out of bounds (индекс массива вышел за границы диапазона). Тоже самое необходимо соблюдать при обработке двух соседних структур. Если число строк меньше длины структуры, тогда в следующей структуре одно из полей будет иметь значение prod: и т.д. Это тоже ошибка. Чтобы избежать обоих ошибок надо посчитать количество строк не являющихся началом структуры ('prod:').

Понял. Блин я не обратил внимание на обратный цикл, сейчас вспомнил что Вы ранее упоминали.

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

ADD: В алгоритме приложенном в файле я также сделал проверку на присутствие в структуре всех ее полей.

Да, обратил на это внимание.

Большое спасибо за помощь.