МассивСписок (ArrayList) Конструктор

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Кнопка1 = Форма1.ЭлементыУправления.Добавить(Ф.Кнопка());

М1 = Новый Массив;
М1.Добавить("Строка в массив");
М1.Добавить(237.65);
М1.Добавить(Истина);
М1.Добавить(Дата("19871225000000"));
М1.Добавить(Кнопка1);
М2 = Ф.МассивСписок(М1);
Сообщить("============================");
Сообщить("Строка = " + М2.Элемент(0));
Сообщить("Число = " + М2.Элемент(1));
Сообщить("Булево = " + М2.Элемент(2));
Сообщить("Дата = " + М2.Элемент(3));
Сообщить("Объект (ширина кнопки) = " + М2.Элемент(4).Ширина);

М3 = Ф.МассивСписок();
М3.Добавить("Строка в массив");
М3.Добавить(237.6554567776);
М3.Добавить(Ложь);
М3.Добавить(Дата("19871225000000"));
М3.Добавить(Кнопка1);
Сообщить("============================");
Сообщить("Строка = " + М3.Элемент(0));
Сообщить("Число = " + М3.Элемент(1));
Сообщить("Булево = " + М3.Элемент(2));
Сообщить("Дата = " + (М3.Элемент(3) + 10));
Сообщить("Объект (ширина кнопки) = " + М3.Элемент(4).Ширина);

М4 = Ф.МассивСписок(М3);
Сообщить("============================");
Сообщить("Строка = " + М4.Элемент(0));
Сообщить("Число = " + М4.Элемент(1));
Сообщить("Булево = " + М4.Элемент(2));
Сообщить("Дата = " + (М4.Элемент(3) + 20));
Сообщить("Объект (ширина кнопки) = " + М4.Элемент(4).Ширина);

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Кнопка1 = Форма1.ЭлементыУправления.Добавить(Ф.Кнопка());

М1 = Новый Массив;
М1.Добавить("Строка в массив");
М1.Добавить(237.65);
М1.Добавить(Истина);
М1.Добавить(Дата("19871225000000"));
М1.Добавить(Кнопка1);
М2 = Ф.МассивСписок(М1);

М3 = Ф.МассивСписок();
М3.Добавить("Строка в массив");
М3.Добавить(237.6554567776);
М3.Добавить(Ложь);
М3.Добавить(Дата("19871225000000"));
М3.Добавить(Кнопка1);

М4 = Ф.МассивСписок(М3);

Сообщить(?(
М2.Количество > 0 и 
М3.Количество > 0 и 
М4.Количество > 0
, "", "!!! ") + "МассивСписок (ArrayList) Конструктор" + " " + ТекущаяДата());