Post Views: 2 520 (* многострочный комментарий, данный текст пропускается компилятором *) { многострочный комментарий, данный текст пропускается компилятором } // однострочный комментарий, данный текст пропускается компилятором
Post Views: 2 453 Не показывать форму программы: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Application.ShowMainForm:=false; [/cc] Запретить кнопку Close [x] в заголовке окна: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Style := GetWindowLong(Handle, GWL_STYLE); SetWindowLong(Handle, GWL_STYLE, Style And Not WS_SYSMENU); // var Style: Longint; [/cc] Задание цвета формы: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Form1.Color:=RGB(255,130,10); // т.е. задаем значения Красного,… Читать далее »
Post Views: 2 042 Считываем значение из двумерного массива “h” и записываем его в переменную “x” – x:=h[1,1]; //var h: array[1..51] of array[1..15] of Extended; x: Extended; Записываем значение переменной “x” в двумерный массив “h” – h[1,1]:=x; //var h: array[1..51] of array[1..15] of Extended; x: Extended; Устанавливаем размерность динамического массива “h” равную 15 – SetLength(h, 15);… Читать далее »
Post Views: 3 240 Получение натурального логарифма числа 2 и запись значения в переменную x: [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] x:= Ln(2); // var x : Double; [/cc] Получение экспоненты этого значения – операция обратная Ln (получению натурального логарифма): [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] x:= Exp(x); // var x : Double; [/cc] Модуль числа присвоить переменной… Читать далее »
Post Views: 2 015 Скрыть папку : SetFileAttributes(PChar(‘c:\TestDir’),faHidden); Создать три папки вложенных друг в друга : ForceDirectories(‘C:\MyDir\Test\Dir1’); Создание папки : createdir(‘c:\TestDir’); // если не указать директорию, то папка будет создана там же где и программа Удаление не пустой папки : [cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”] Function MyRemoveDir(sDir: String): Boolean; var iIndex: Integer; SearchRec: TSearchRec; sFileName: String;… Читать далее »
Post Views: 2 084 Комментарии мы пишем не для кого-то, комментарии мы пишем для себя. Они нужны там, где код сложный, т.е. там, где не понятно сразу что происходит. По мере повышения уровня знаний в программировании, комментариев становится меньше.
Post Views: 2 060 Лев Николаевич знает толк в больших произведениях.
Post Views: 2 045 В данной картинке Антон Павлович дает советы по первым нагрузкам начинающим гениям.
Post Views: 2 206 Текст задания : Описать класс Книга: поля Название, год издания. Методы: вывод информации, конструктор с параметрами. Описать дочерний (от Книги) класс Учебник: добавить поля: предмет, класс. Описать дочерний (от Учебника) класс Журнал: добавить поле Номер. Создать объекты описанных классов с помощью конструктора. Вывести информацию об объектах с помощью метода. Решение : Первый… Читать далее »
Post Views: 2 371 Теоретическая часть метода состоит в том, что массив чисел сортируется с начала,и каждое последующее число вставляется в уже отсортированную часть массива на предназначенное ему место. Основная соль метода выражена в процедуре :