Record или class

[tarakan1983]

Здравствуйте. Помогите, пожалуйста, разобраться с class или record.
Есть n-количество xml файлов такого содержания(Привожу описание по-русски, чтобы было понятнее)

Документ
   ШапкаДокумента
     ДатаДок
     НомерДок
     ТипДокумента
     (....еще куча всего)
   ШапкаДокумента_Конец
   ПолучательДокумента
      ИНН
      ОГРН
      (....еще куча всего)
   ПолучательДокумента_конец
   ОтправительДокумента
      ИНН
      ОГРН
      (....еще куча всего)
   ОтправительДокумента_конец
и т.п. ……
Документ_КОНЕЦ

Создаю record

Type PДокумент = ^ TДокумент;
TДокумент = record
      ID : Integer;
      NUMBER : AnsiString;
      ID_Получателя : Integer;
      ID_Отправителя : Integer;
    end;

Type PПолучатель = ^ TПолучатель;
TПолучатель = record
      ID : Integer;
      ИНН : AnsiString;
      ОГРН : Integer;
    end;

Type PОтправитель = ^ TОтправитель;
TОтправитель = record
      ID : Integer;
      ИНН : AnsiString;
      ОГРН : Integer;
    end;

и т.п. ……
Я привел только 3 record и маленькие кусочки XML, на самом деле у меня их(record) 14 с несчетным количеством реквизитов
По мере чтения XML-файла записываю данные в record
Например

TXML := TNativeXml.Create(nil);
PДокумент^.NUMBER := TXML.Root.FindNode('wb:NUMBER').Value;

Подскажите как мне правильно выделять память под record и потом правильно её очищать.
Как мне потом перебрать все record для сохранения их в БД или перебор у меня не получиться, если так то можно ли воспользоваться class?

[come-on]

а зачем вам прослойки? сразу в базу и пишите
если надо то класс

[Utkin]

Ну если с единичным документом, я бы работал прямо в XML (то есть класс), а так в БД.

[Pavia]

tarakan1983
Вы не правильно вопрос ставите. Надо писать что вы хотите сделать, что требуется. А не то как вы делаете. Во-вторых, главную часть вопроса надо писать в начале текста.

Подскажите как мне правильно выделять память под record и потом правильно её очищать.
Как мне потом перебрать все record для сохранения их в БД или перебор у меня не получиться, если так то можно ли воспользоваться class?

Выделение памяти GetMem освобождение FreeMem. Можно ещё new и Dispose
http://www.delphibasics.ru/New.php
Как правильно?
1) Где выделяем память там и освобождаем. Идеально если это в одной функции.
Или хотя бы в одном классе.
2) new-Dispose более безопасны чем GetMem и FreeMem
3) После выделения не забываем что надо очистить память.
FillChar(p^,SizeOf(p^),0);
В delphibasics, это забыли сделать.

можно ли воспользоваться class?

Можно.

Как мне потом перебрать все record для сохранения их в БД или перебор у меня не получиться,

Как перебрать ну к примеру так:

For i:=0 to List1.Count-1 do
  MyInserInBD('MyTableForList1',List1[i])

А вообще XML это и есть БД только древовидная, а не таблице видная. Так что нет никакого смысла пересылать в БД.

[tarakan1983]

Сообщение от come-on

а зачем вам прослойки? сразу в базу и пишите
если надо то класс

XML большой, боюсь запутаться. Я сначала сохраняю Отправвителя, Получателя, Транспортную компанию, Водитель, Экспидитор, Автомобиль и т.п. получаю их ID, при этом в отдельных функциях проверяю на существование их в БД по отдельным реквизитам и при существовании обновляю текущими данными, сохраняю документ со всеми ID, у документа есть n-количество позиций товара со своими характеристиками(Производитель, импортер и т.п.) их тоже надо все сохранить и проверить на дубль в БД и потом только ID занести. Поэтому для наглядности и выбрал record, только не знаю как его правильно обнулять перед каждым новым XML и как его перебирать.

Сообщение от come-on

если надо то класс

А как class правильно обнулять перед каждым новым XML и как его перебирать?

[Аватар]

Если боишься запутаться, то проще динамические массивы записей:

Type 
TДокумент = record
      ID : Integer;
      NUMBER : AnsiString;
      ID_Получателя : Integer;
      ID_Отправителя : Integer;
    end;

var xDocuments: array of TДокумент;

SetLength для массива сам позаботится об выделении/освобождении памяти под записи. Сильно проще, но помедленнее. И ни каких колпачков, тоже большой полигон для запутывающихся. Еще проще вместо массивов использовать ClentDataSet и ClentDataSet.CreateDataSet. Соответственно еще чуть-чуть менее эффективно

[Slym]

21 век,а вы все записями...
Можно ведь ClientDataset пользовать:
В XML Mapping Toolе замутить нужный трансформ

[come-on]

21 век,а вы все записями...

если автору надо просто кинуть в базу то и ClientDataset тут особо не нужен, xpath если совсем что то, и вперед
а если база сама умеет xml, то и делфи ненужная прослойка

[3D Hunter]

попробуйте использовать XML Binding.
http://deldev.blogspot.ru/2008/05/xm...ng-delphi.html
Генерирует на основе xml распарсенный класс. Удобная вещь.
пример:XMLBinding_Example.zip

[tarakan1983]

Сообщение от 3D Hunter

попробуйте использовать XML Binding.
http://deldev.blogspot.ru/2008/05/xm...ng-delphi.html
Генерирует на основе xml распарсенный класс. Удобная вещь.
пример:Вложение 82593

Очень бы хотелось, но файлы XML кривые, он не хочет их парсить, уже пробовал, Ошибка вылетает.
Вот примеры файлов, можете сами попробовать?
P.S. Может у меня что-то кривое(руки, мозги и т.п.)