VA
или переопределить оператор сложения...
переопределять для классов можно было только для arc, который через 5 минут уже выпилят
Size: a a a
2020 May 02
Р
Вот-вот! Инет прошерстил, на всех языках, которые мне встретились, "изящно"😁 Но не на Делфи
Р
Т.е. на Делфи вообще нет примера
Р
Вернее даже вопрос не стоял такой
Р
Ну или плохо искал
Р
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 := TJSONObject.ParseJSONValue('[[4,4],[5,5],[6,6]]') as TJSONArray;
for i := 0 to jarr2.Count - 1 do jarr1.AddElement(jarr2.Items[i]);
Спасибо, работает.👍 Но неужели нет поизящнее способа?
Подскажите, как после jarr2.Count равным нулю сделать?
Я только нашёл jarr2 := TJSONArray.Create;
Чёт как-то тоже не изящно...
Я только нашёл jarr2 := TJSONArray.Create;
Чёт как-то тоже не изящно...
И
Подскажите, как после jarr2.Count равным нулю сделать?
Я только нашёл jarr2 := TJSONArray.Create;
Чёт как-то тоже не изящно...
Я только нашёл jarr2 := TJSONArray.Create;
Чёт как-то тоже не изящно...
Обнулить/очистить массив?
Р
Обнулить/очистить массив?
да
И
Не изящно, но что делать: JArr2.Free;
Р
Не изящно, но что делать: JArr2.Free;
так нельзя
И
Gjxtve&
Р
Gjxtve&
jarr1 тоже грохнется
И
Не должен.
Р
Не должен.
уже
Р
Не должен.
но вот так прокатывает:
jarr2 := TJSONArray.Create;
jarr2.Free;
Но ёлки-палки...
jarr2 := TJSONArray.Create;
jarr2.Free;
Но ёлки-палки...
Р
Говнокод прям
SF
Привет мастери как сделат что бы загрузит файл на сервер (хостинг) програма не засигат?
SF
Через idftp загружаю файл, програма засикает как загрузит без засикание
SB
Все как в скриптовых языках. Только сложение списков не доделал, там с операторами сложно.