Вложенные наборы данных: TClientDataSet.DataSetField пуст после CreateDataSet; вложенный набор неактивен после LoadFromFile

Старая ситуация: во время разработки два вложенных TClientDataSets, VertaalData и VertaalRegelsData, с определениями полей и т. д., заполненными с помощью LoadFromFile.

Новая ситуация: создайте структуру для этих наборов времени разработки (теперь свойства не заполняются) во время выполнения, а затем используйте LoadFromFile с тем же файлом. Код:

  with VertaalData do         // Nested dataset    https://stackoverflow.com/a/76337090/512728
  begin
     if Active then Close;
     FieldDefs.Clear;
     FieldDefs.Add(sVersion,ftString,11,false);  // s... are fieldname constants
     with FieldDefs.AddFieldDef do
     begin
        Name     := sTranslate;
        DataType := ftDataSet;
        ChildDefs.Add(sID,ftInteger);
        ChildDefs.Add(sTranslate,ftBoolean);
        ChildDefs.Add(STT_NL,ftString,250,false);   // STT also field name constants
        ChildDefs.Add(STT_EN,ftString,250,false);
        ChildDefs.Add(STT_DE,ftString,250,false);
        ChildDefs.Add(STT_XX,ftString,250,false);
     end;
     CreateDataSet;
     LoadFromFile(LLanguageFileName);
  end;  

Чем отличается ситуация во время проектирования:

  • VertaalRegelsData.DataSetField не заполняется после CreateDataSet,
  • VertaalRegelsData.State — это dsInactive после LoadFromFile.

я добавил

VertaalRegelsData.DataSetField := TDataSetField(VertaalData.FieldByName(sTranslate));

за CreateDataSet («поле неизвестно», если я попробую раньше), но это не поможет состоянию:
После LoadFromFile верхний набор данных располагается в первой (и единственной) записи и находится в состоянии dsBrowse, но вложенный VertaalRegelsData по-прежнему находится в состоянии dsInactive.

Я попробовал (после LoadFromFile):

  • VertaalRegelsData.Open -> «Отсутствует поставщик данных или пакет данных»
  • VertaalRegelsData.First -> «Невозможно выполнить эту операцию с закрытым набором данных»
  • Чтение значения поля из VertaalData -> Не повезло
  • VertaalData.First -> Не повезло

Есть предложения?

Это 64-битное приложение Delphi 12 VCL. Образец файла здесь (срок действия 30 дней)

Добавлено 15 авг:

FWIW Файл был создан в другой программе с помощью:

     NewLanguageData.Post;  // In dsEdit state after conversion
     NewLanguageLineData.DisableControls;
     NewLanguageData.MergeChangeLog;
     NewLanguageData.SaveToFile(ChangeFileExt(SaveDialogLanguage.FileName, '.lng'));

У меня есть еще одна служебная программа для просмотра этих TClientDataSet сохраненных файлов, которая также блокируется из-за того, что вложенный набор данных не открывается после LoadFromFile.

@UweRaabe easyupload.io/jgfm7j

Jan Doggen 15.08.2024 10:44
Стоит ли изучать PHP в 2023-2024 годах?
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
0
1
53
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Поскольку вам не нужно заполнять наборы данных по коду и всегда вызывать LoadFromFile, вы можете опустить весь код для создания определений полей, а также вызов CreateDataSet. LoadFromFile создаст соответствующие поля из содержимого файла.

Чтобы заполнить оба набора данных, вы создаете обработчик событий AfterOpen для основного набора данных, который устанавливает DataSetField для подробного набора данных. Тогда просто позвони LoadFromFile.

Я добился желаемого результата, поместив два TClientDataSet в форму и добавив следующие строки кода:

procedure TForm860.Button1Click(Sender: TObject);
begin
  VertaalData.LoadFromFile('c:\Users\Uwe\Downloads\TTTranslate.lng');
end;

procedure TForm860.VertaalDataAfterOpen(DataSet: TDataSet);
begin
  VertaalRegelsData.DataSetField := VertaalData.FieldByName('TT_TRANSLATE') as TDataSetField;
end;

Боже мой, как это может быть просто? Как ты научился этому трюку?

Jan Doggen 15.08.2024 12:20

Другие вопросы по теме