RxMemoryData, Динамическое добавление полей Опции

[kosyak]

Доброе всем время суток!

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

Код

  mWorkHours.Close;
  for i: =1 to n do
    begin
      mWorkHours.FieldDefs.Add('d'+intToStr(i), ftString, 0, True);
    end;
  mWorkHours.Open;

Вылетает ошибка: access violation.
Что я делаю не так?

Заранее спасиба!

Сообщение отредактировано: kosyak - 15.10.2009 11:46

[volvo]

А чего бы не сделать так:

Var
  field: TField;
...
  mWorkHours.Close;
  for i: =1 to n do
  begin
    field := TStringField.Create(nil);
    field.FieldName := 'd' + IntToStr(i);
    field.Size := 10; // Длина строки - ненулевая должна быть, правда?
    field.DataSet:=mWorkHours;
  end;
  mWorkHours.Open;

(проверить, работает ли, не смогу, у меня RxLib не установлена, приведенное решение видел на одном из форумов, говорили, что работает).