|
|
|
| Другие темы раздела | |
| Delphi Указать числа, у которых остаток от деления на M равен L Даны натуральные числа a1,a2,....,an . Указать те из них, у которых остаток от деления на M равен L (0=< L=<M-1). Есть код Паскаль: program z; var i,n,m,l,f:integer; a:array of integer; begin writeln('Введите кол-во элементов вектора'); readln(n); writeln('Ввод элементов вектора'); for i:=1 to n do https://www.cyberforum.ru/ delphi-beginners/ thread2399306.html |
Delphi Упорядочить массив x ( n ) по убыванию , используя метод сортировки вставками Упорядочить массив x ( n ) по убыванию , используя метод сортировки вставками : пусть первые к элеменов уже упорядочены ; берется ( к + 1 ) элемент и размещается среди первых к элементов так , чтобы упорядоченными оказались уже ( к + 1 ) первых элементов . |
| Delphi Вывести цикл в строчку от 1 до 10 Всем привет. Не получается вывести цикл при помощи оператора for to do Получается просто финальное число цикла - 10. Вот код: procedure TForm1.btn1Click(Sender: TObject); var i: Integer; begin https://www.cyberforum.ru/ delphi-beginners/ thread2399278.html |
Delphi Нужно прочитать файл и вывести все строки в один MessageBox
https://www.cyberforum.ru/ delphi-beginners/ thread2399169.html Здравствуйте дорогие читателя этого замечательного форума! Мне нужно прочитать файл и вывести все строки в один MessageBox или Memo. Прошу помогите!:help: |
|
Получить все отрицательные члены последовательности, сохранив порядок их следования. Delphi Даны целые числа a(1)...a(n), каждое из которых отлично от нуля. Если в последовательности отрицательные и положительные члены чередуются (+, -, +, -, … или -, +, -, +,…), то ответом должна служить сама исходная последовательность. Иначе, получить все отрицательные члены последовательности, сохранив порядок их следования. |
Delphi Выяснить, имеются ли в строке пять идущих подряд букв "е" Выяснить, верно ли, что в строке имеются пять идущих подряд букв е. https://www.cyberforum.ru/ delphi-beginners/ thread2399160.html |
|
Delphi Проблема с MessageBox
https://www.cyberforum.ru/ delphi-beginners/ thread2399153.html Здравствуйте дорогие читателя этого замечательного форума! Возникла небольшая проблемка с MessageBox. Прошу помогите!:help: procedure TForm2.HowManyUsersClick(Sender: TObject); var sl: TStringList; countString: integer; count:string; begin sl := TStringList.Create; sl.LoadFromFile('AllUsers.gg'); |
Delphi Найти количество чисел, принадлежащих промежутку [A, B], и сумму чисел, стоящих на местах, кратных 3 Условие: Найдите количество чисел, принадлежащих промежутку , и сумму чисел, стоящих на местах, кратных 3. Нужно написать на Delphi. Тема называется Массивы, но в условии ничего не написано про массивы. Должно быть примерно(наверное) так(скрин). Я пока начинаю изучение и пока не совсем понимаю, что к чему. Буду очень благодарен, если вы мне поможете!) |
|
Delphi Вычислить число Пи с точностью до 6-го знака после запятой по формуле Грегори
https://www.cyberforum.ru/ delphi-beginners/ thread2399061.html Вычислить число Пи с точностью до 6-го знака после запятой по формуле Грегори |
Delphi Методом деления отрезка пополам найти приближенное значение корня уравнения Дано действительное положительное число (e). Методом деления отрезка пополам найти приближенное значение корня уравнения x + ln(x + 0,5) - 0,5 = 0 Абсолютная погрешность найденного значения не должна превосходить . Корень расположен на отрезке . п.с. картинку вставил для понятности https://www.cyberforum.ru/ delphi-beginners/ thread2398986.html |
|
Delphi Доступ к папке на локальном сервере Здравствуйте, существует локальный сервер. В нем хранится папка с файлами. Я пишу консольное приложение, которое должно копировать эту папку из сервера и вставлять на рабочий стол пользователя. Так сказать, модернизация. Использую функцию CopyFile, но почему она не работает и показывает ошибку с кодом 5 (доступ запрещен), так вот, каким образом можно получить доступ к этой папке из программы?... |
Delphi Работа с бд delphi xe7 Добрый вечер. Подскажите почему у меня программа просто не запускается из-за этого кода procedure TForm2.sButton1Click(Sender: TObject); var SL:TStringList; MS:TMemoryStream; SQLiteDataBase:TSQLiteDatabase; SQLiteTable:TSQLiteTable; i:integer; https://www.cyberforum.ru/ delphi-beginners/ thread2398898.html |
|
4 / 4 / 5
Регистрация: 01.03.2013
Сообщений: 180
|
|
| 05.02.2019, 09:47 [ТС] | 0 |
Передача объекта из одного экземпляра класса в другой с запретом обращаться к методам и свойствам этого объекта - Delphi - Ответ 1329857605.02.2019, 09:47. Показов 2825. Ответов 5
Метки (Все метки)
Ответ 
Сообщение от Nanotentacle
Сама передача хорошо работает, но вот только смутило то, что объект этот извне могу использовать хоть как.
Сообщение от Nanotentacle
С другой стороны, сейчас помню, потом забыл. Также, будут другие пользователи класса, которые могут что нибудь натворить с объектом. За идею и код - спасибо, но Free - не единственный метод объекта. Неужели придется оверрайдить каждый метод? Вернуться к обсуждению: Передача объекта из одного экземпляра класса в другой с запретом обращаться к методам и свойствам этого объекта Delphi
0
|
|
| 05.02.2019, 09:47 | |
|
Готовые ответы и решения:
5
Не работает передача объекта из одного класса в другой через return
Как обращаться к свойствам объекта? |
| 05.02.2019, 09:47 | |
| 05.02.2019, 09:47 | |
|
Помогаю со студенческими работами здесь
0
Вызвать процедуру\функцию из другого объекта\класса. Из одного класса\объекта сделать два Передача методу одного объекта ссылки на другой объект
Передача объекта однго класса в другой класс |
Наверх