GB
jarr1 тоже грохнется
с чего это он грохнется? если это происходит, значит что-то не так. или может значения, добавленные из него грохаются?
Size: a a a
2020 May 02
Р
с чего это он грохнется? если это происходит, значит что-то не так. или может значения, добавленные из него грохаются?
procedure TForm1.FormCreate(Sender: TObject);
var
jarr1, jarr2: TJSONArray;
i: Integer;
begin
jarr1 := TJSONObject.ParseJSONValue('[[1,1],[2,2],[3,3]]') as TJSONArray;
jarr2 := TJSONObject.ParseJSONValue('[[4,4],[5,5],[6,6]]') as TJSONArray;
for i := 0 to jarr2.Count - 1 do
jarr1.AddElement(jarr2.Items[i]);
jarr2.Free;
Memo1.Lines.Add(jarr1.ToString);
end;
var
jarr1, jarr2: TJSONArray;
i: Integer;
begin
jarr1 := TJSONObject.ParseJSONValue('[[1,1],[2,2],[3,3]]') as TJSONArray;
jarr2 := TJSONObject.ParseJSONValue('[[4,4],[5,5],[6,6]]') as TJSONArray;
for i := 0 to jarr2.Count - 1 do
jarr1.AddElement(jarr2.Items[i]);
jarr2.Free;
Memo1.Lines.Add(jarr1.ToString);
end;
АВ
А если пошагово выполнить с отладчиком?
GB
а если вместо
jarr1.AddElement(jarr2.Items[i]);
написать
jarr1.AddElement(jarr2.Items[i].Clone());
jarr1.AddElement(jarr2.Items[i]);
написать
jarr1.AddElement(jarr2.Items[i].Clone());
Р
А если пошагово выполнить с отладчиком?
На "Memo1.Lines.Add(jarr1.ToString);" вылет
Р
а если вместо
jarr1.AddElement(jarr2.Items[i]);
написать
jarr1.AddElement(jarr2.Items[i].Clone());
jarr1.AddElement(jarr2.Items[i]);
написать
jarr1.AddElement(jarr2.Items[i].Clone());
вот так работает:
jarr1.AddElement(jarr2.Items[i].Clone as TJSONValue);
jarr1.AddElement(jarr2.Items[i].Clone as TJSONValue);
АВ
Предположу, что ты освобождаешь эеленты, которые добавил
Р
Предположу, что ты освобождаешь эеленты, которые добавил
Да я бы не хотел этого))
АВ
Ну когда ты из одного списка элементы добавляешь в другой, при этом освобождая первый - так оно и происходит:D
АВ
А вот когда туда копируешь, они там и остаются
Р
А вот когда туда копируешь, они там и остаются
Поэтому только два варианта:
1) jarr2 := TJSONArray.Create;
jarr2.Free;
2) Clone
Free
1) jarr2 := TJSONArray.Create;
jarr2.Free;
2) Clone
Free
И
Там хрень какая то. Очень похоже, что он элементам меняет родителя, но при этом Count источника остается равным 3, т.е. они добавились во второй массив, но память в первом не освободили. Потом при разрушении второго массива он удаляет новые элементы, а первый массив еще помнит, что у него 3 элемента. Скорее всего клонирование для того и создано.
RS
procedure TForm1.FormCreate(Sender: TObject);
var
jarr1, jarr2: TJSONArray;
i: Integer;
begin
jarr1 := TJSONObject.ParseJSONValue('[[1,1],[2,2],[3,3]]') as TJSONArray;
jarr2 := TJSONObject.ParseJSONValue('[[4,4],[5,5],[6,6]]') as TJSONArray;
for i := 0 to jarr2.Count - 1 do
jarr1.AddElement(jarr2.Items[i]);
jarr2.Free;
Memo1.Lines.Add(jarr1.ToString);
end;
var
jarr1, jarr2: TJSONArray;
i: Integer;
begin
jarr1 := TJSONObject.ParseJSONValue('[[1,1],[2,2],[3,3]]') as TJSONArray;
jarr2 := TJSONObject.ParseJSONValue('[[4,4],[5,5],[6,6]]') as TJSONArray;
for i := 0 to jarr2.Count - 1 do
jarr1.AddElement(jarr2.Items[i]);
jarr2.Free;
Memo1.Lines.Add(jarr1.ToString);
end;
Добавляй не просто так, а с использованием .Clone каждого элемента. Тогда в конце смело можешь очистить
jarr2RS
вот так работает:
jarr1.AddElement(jarr2.Items[i].Clone as TJSONValue);
jarr1.AddElement(jarr2.Items[i].Clone as TJSONValue);
+
TC
Во, только на днях интересовался! Спасибо!
2020 May 03
VI
Как проверить множество на пустоту?
VA
Как проверить множество на пустоту?
сравнить с пустотой
Some = []VI
сравнить с пустотой
Some = []Чёт не работает
VA
Чёт не работает
очевидно, что-то не так делаешь