Делюсь способом обхода внешних переменных.

Автор graphdark, 14.02.22, 15:34:17

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

graphdark

На самом деле когда-то копировал чужой код и даже не задумывался, но время заставило, да и с жсоном прпишлось учиться дружить. В общем код.

    VarCol := ksVariableCollection(part.VariableCollection());
    if VarCol = nil then
    Count := VarCol.GetCount();
    for I := 0 to Count - 1 do
    begin
      writeln(IntToStr(I));
      variable := ksVariable(VarCol.GetByIndex(I));
      try
        begin
          variable.Value := StrToFloat(JGetValue(Data3D, variable.Name));
        end;
      except
        begin
        end;
      end;
    end;

В JSON словаре в ключах имена переменных и я просто значения в переменные кидаю. Может кому пригодится. Да я просто ветку поднял.))