Динамическая структура записи массива записей...:D

[Алексей_2012]

Привет! Ребят, в общем у меня есть задача, написать программу для хранения и поиска информации о клиентах, критерии поиска описаны в пользовательском типе (других, кроме текстовых файлов не знаю) (не обязательно там, главное решить задачу, это моя курсовая)

type
  zap=record
  kod_klienta:Integer; //код клиента
  names:string[50];    //имя клиента
  zapis:array[0..999] of string[255]; //динамическая структура поискового //запроса
  end;

var
  f:file of zap;
  w:zap;

Вот как раз zapis и должна заполнятся, заполняю из Tedit по кнопке,

в общем на скрине 1 и 2 разница видна, столб2 и столб3-это элементы массива zapis[0],zapis[1];

вопрос, как организовать поиск и заполнение по этим динамическим структурам, lenght(zapis)-возвратит 999?, т.к. массив не динамический

[NIKOLAYY2]

Ну а сама суть проблемы в чем? По кнопке "Добавить критерий" запись в таблицу сделать (что это у тебя там StringGrid я понял?) сохранить таблицу или поиск по нужным столбцам или колонкам организовать?

[Аватар]

Что мешает в той записи хранить к-во использованных элементов массива? А вообще структура будь здоров в части array[0..999] of string[255]. Это что, на полном серьёзе?

[NIKOLAYY2]

Аватар А зачем он написал?

 zapis:array[0..999] of string[255];

Можно было бы и просто:

zapis:array[0..999] of string;

Или он память экономит?

[Аватар]

Видимо типизированный файл предполагается, а там просто String не получится. А ТС предложил бы с простейшей СУБД работать, а если уж типизированный файл, то их два, во втором эти самые пресловутые поисковые запросы с идешкой клиента и не в виде массива, а каждый в отдельной записи. Кстати, а что это - поисковый запрос?

[Serge_Bliznykov]

Сообщение от Аватар

Видимо типизированный файл предполагается

не предполагается, а именно используется:

var
  f:file of zap;

поэтому,

Можно было бы и просто:

zapis:array[0..999] of string;

нельзя (в Delphi тип String - это указатель на область памяти, поэтому его нельзя использовать для типизированного файла, будет ошибка при компиляции.

Алексей_2012, а вообще, выделение памяти в файле под ТЫСЯЧУ строк явно говорит о том, что структуру Вы продумали плохо. Даже если в поле запись Вам ничего не надо записывать, в файле эта часть структуры займёт 250 кб (255000 байт).
Не сильно расточительно?!

[Sibedir]

Сообщение от Алексей_2012

как организовать поиск и заполнение по этим динамическим структурам, lenght(zapis)-возвратит 999?, т.к. массив не динамический

Ведь сам же и отвечаешь на свой вопрос:
"как организовать поиск и заполнение по этим динамическим структурам"
а "массив не динамический"

Что мешает сделать его динамическим?
И записывать zap по частям:
сохраняешь kod_klienta
сохраняешь names
сохраняешь N (кол-во строк)
сохраняешь zapis[0]
сохраняешь zapis[1]
сохраняешь zapis[..]
сохраняешь zapis[N-1]

При этом можно использовать простой текстовый файл

Добавлено ----------------------------------------------------------------------------------------------------------------------------------------------------
Ну а если уж отвечать в лоб

как организовать поиск и заполнение по этим динамическим структурам

то добавь к zap поле Count: Word
Если честно, на трояк с минусом сгодится

[саша40]

Вы делаете базу данных?
Так вперед, раздел "Delphi и базы данных" в книге Флёнова "Библия Delphi".