|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.07.2013, 13:57 | #1 |
Новичок
Джуниор
Регистрация: 18.07.2013
Сообщений: 2
|
JSONarray -> stringarray проблемы после компиляции на XE4
Сервер генерирует JSON:
while not Dataset.EOF do begin recordObj := TJSONObject.Create; cellsArray := TJSONArray.Create; for j := 0 to Dataset.FieldCount - 1 do cellsArray.Add(Dataset.Fields[j].AsString); recordObj.AddPair(IntToStr(i), cellsArray); Result.AddElement(recordObj); Dataset.Next; end; Клиент читает JSON и присваивает значения массива строк: procedure TForm2.SelectClick(Sender: TObject); var aServer: TServerMethodsClient; arr : TJSONArray; cells : TJSONObject; cells_ar : TJSONPair; begin aServer := TServerMethodsClient.Create(DATASNA PConnection.DBXConnection); arr := aServer.SelectJSON; SetLength(string_array, arr.Size); // получает правильное arr.Size for i := 0 to arr.Size - 1 do begin cells := TJSONObject(arr.Get(i)); cells_ar := TJSONPair(cells.Get(0)); string_array[i][0] := TJSONObject(cells_ar.JsonValue).Get (0).value; /// <---- тут проблема:.. дебуг показывает "TJSONObject(cells_ar.JsonValue).Ge t(0).value" правильное значение, но конечный результат string_array [I][0] ='' не string_array[I][0] = 'SomeString значение' string_array[i][1] := TJSONObject(cells_ar.JsonValue).Get (1).value; /// <----- та же проблема здесь, так или иначе правильное значение не присваивается слева и остается нулевым. end; end; Проблема появилась только на XE3 XE4 и, прежде он метод работал просто отлично. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Большой размер установочного фаила в delphi xe4 при компиляции под ios | Flik | Общие вопросы Delphi | 5 | 24.05.2013 14:13 |
Ошибка после компиляции в VS 2010 | farshmaker | Общие вопросы .NET | 5 | 09.04.2012 11:54 |
Большая задержка после компиляции! | Lorem | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 11.01.2012 18:50 |
Ошибка после компиляции | Leo705 | Общие вопросы C/C++ | 10 | 29.01.2011 19:26 |
Ошибки после компиляции | Cakeinpanic | Общие вопросы C/C++ | 8 | 16.05.2009 14:48 |